2015-11-21 01:03:17 +00:00
|
|
|
-- definition id {A : Type} (a : A) := a
|
2015-03-26 01:22:20 +00:00
|
|
|
|
|
|
|
|
example (a b c : nat) : id a = id b → a = b :=
|
|
|
|
|
begin
|
|
|
|
|
intro H,
|
2015-03-28 00:26:06 +00:00
|
|
|
fold [id a, id b],
|
2015-03-26 01:22:20 +00:00
|
|
|
assumption
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
example (a b c : nat) : id a = id b → a = b :=
|
|
|
|
|
begin
|
|
|
|
|
intro H,
|
|
|
|
|
fold (id a),
|
|
|
|
|
fold (id b),
|
|
|
|
|
assumption
|
|
|
|
|
end
|
