lean2/tests/lean/run/817.lean

11 lines
254 B
Text
Raw Normal View History

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₂