6 lines
230 B
Text
6 lines
230 B
Text
Set: pp::colors
|
||
Set: pp::unicode
|
||
Defined: f
|
||
Proved: T
|
||
theorem T (a b : Bool) : a ∨ b ⇒ f b ⇒ a :=
|
||
discharge (λ H : a ∨ b, discharge (λ H::1 : f b, or::elim H (λ H : a, H) (λ H : b, absurd::elim a H H::1)))
|