lean2/tests/lean/run/817.lean
2015-09-03 16:09:39 -07:00

10 lines
254 B
Text

variables A B : Prop
premises (H₁ : A) (H₂ : A → B)
example : B :=
suffices A ∧ (A → B), from and.right this (and.left this),
and.intro H₁ H₂
example : B :=
suffices H : A ∧ (A → B), from and.right H (and.left H),
and.intro H₁ H₂