lean4-htt/tests/lean/run/repeat_tac.lean
2017-12-04 12:55:53 -08:00

2 lines
150 B
Text

example (p q r s : Prop) : p → q → r → s → (p ∧ q) ∧ (r ∧ s ∧ p) ∧ (p ∧ r ∧ q) :=
by intros; repeat { constructor }; assumption