24 lines
506 B
Text
24 lines
506 B
Text
open tactic
|
||
|
||
example (p q : Prop) : p ∨ q → q ∨ p :=
|
||
by do
|
||
H ← intro `H,
|
||
induction H,
|
||
constructor_idx 2, assumption,
|
||
constructor_idx 1, assumption
|
||
|
||
open nat
|
||
example (n : ℕ) : n = 0 ∨ n = succ (pred n) :=
|
||
by do
|
||
n ← get_local `n,
|
||
induction n,
|
||
constructor_idx 1, reflexivity,
|
||
constructor_idx 2, reflexivity,
|
||
return ()
|
||
|
||
example (n : ℕ) (H : n ≠ 0) : n > 0 → n = succ (pred n) :=
|
||
by do
|
||
n ← get_local `n,
|
||
induction n,
|
||
intro `H1, contradiction,
|
||
intros, reflexivity
|