17 lines
257 B
Text
17 lines
257 B
Text
|
definition id {A : Type} (a : A) := a
|
||
|
|
|
||
|
|
example (a b c : nat) : id a = id b → a = b :=
|
||
|
|
begin
|
||
|
|
intro H,
|
||
|
|
fold {id a, id b},
|
||
|
|
assumption
|
||
|
|
end
|
||
|
|
|
||
|
|
example (a b c : nat) : id a = id b → a = b :=
|
||
|
|
begin
|
||
|
|
intro H,
|
||
|
|
fold (id a),
|
||
|
|
fold (id b),
|
||
|
|
assumption
|
||
|
|
end
|