7 lines
175 B
Text
7 lines
175 B
Text
open tactic
|
|
|
|
example (p q : Prop) : p → q → p ∧ q ∧ p :=
|
|
by do
|
|
intros,
|
|
c₁ ← return (expr.const `and.intro []),
|
|
repeat_at_most 10 (apply c₁ <|> assumption)
|