e379034b95
- It uses the unifier in "conservative" mode - It only affects the current goal closes #570
42 lines
520 B
Text
42 lines
520 B
Text
open prod
|
||
|
||
example (a b c : Type) : a → b → c → a × b × c :=
|
||
begin
|
||
intro Ha Hb Hc,
|
||
repeat (split | assumption)
|
||
end
|
||
|
||
example (a b : Type) : a → sum a b :=
|
||
begin
|
||
intro Ha,
|
||
left,
|
||
assumption
|
||
end
|
||
|
||
example (a b : Type) : b → sum a b :=
|
||
begin
|
||
intro Ha,
|
||
right,
|
||
assumption
|
||
end
|
||
|
||
open nat
|
||
|
||
example (a : nat) : a > 0 → Σ x, x > 0 :=
|
||
begin
|
||
intro Ha,
|
||
existsi a,
|
||
apply Ha
|
||
end
|
||
|
||
example : nat :=
|
||
begin
|
||
constructor 1
|
||
end
|
||
|
||
example : nat :=
|
||
begin
|
||
constructor 2,
|
||
constructor 2,
|
||
constructor 1
|
||
end
|