09f98ecddc
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
10 lines
285 B
Text
10 lines
285 B
Text
Set: pp::colors
|
||
Set: pp::unicode
|
||
Defined: f
|
||
Defined: g
|
||
Proved: T1
|
||
Defined: h
|
||
Proved: T2
|
||
Theorem T2 (a b : Bool) : (h a b) ⇒ (f b) ⇒ a :=
|
||
Discharge
|
||
(λ H : a ∨ b, Discharge (λ H::1 : ¬ b, DisjCases H (λ H : a, H) (λ H : b, AbsurdImpAny b a H H::1)))
|