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)))