lean2/tests/lean/j5.lean

4 lines
107 B
Text
Raw Normal View History

theorem or_imp (p q : Bool) : (p q) ↔ (¬ p → q)
:= subst (symm (imp_or (¬ p) q)) (not_not_eq p)