13 lines
408 B
Text
13 lines
408 B
Text
Set: pp::colors
|
||
Set: pp::unicode
|
||
Assumed: p
|
||
λ (a b c : Bool)
|
||
(p : ℕ → ℕ → Bool)
|
||
(n m : ℕ)
|
||
(H : a ⇒ b ⇒ (∀ x y : ℕ, c ⇒ p (x + n) (x + m)))
|
||
(Ha : a)
|
||
(Hb : b)
|
||
(Hc : c),
|
||
H ◂ Ha ◂ Hb ◂ 0 ◂ 1 ◂ Hc :
|
||
Π (a b c : Bool) (p : ℕ → ℕ → Bool) (n m : ℕ),
|
||
(a ⇒ b ⇒ (∀ x y : ℕ, c ⇒ p (x + n) (x + m))) → a → b → c → p (0 + n) (0 + m)
|