Sign in
◑
Theme
fuchsia
/
third_party
/
github.com
/
leanprover
/
lean4
/
refs/heads/upstream/expose-array-back
/
.
/
tests
/
elab
/
1900.lean
blob: 8717912f2306cf1f61f33a4606e494c901c87d3c [
file
] [
edit
]
@[
elab_as_elim
]
def
strongSubRecursion
{
P
:
Nat
→
Nat
→
Sort
_
}
(
H
:
∀
a b
,
(∀
x y
,
x
<
a
→
y
<
b
→
P x y
)
→
P a b
)
:
∀
n m
:
Nat
,
P n m
|
n
,
m
=>
H n m fun x y _ _
=>
strongSubRecursion H x y