15 lines
179 B
Text
15 lines
179 B
Text
|
open eq
|
||
|
|
|
||
|
|
context
|
||
|
|
parameter (A : Type)
|
||
|
|
|
||
|
|
definition foo (a : A) : a = a := refl a
|
||
|
|
|
||
|
|
definition bar (a : A) : foo a = refl a :=
|
||
|
|
begin
|
||
|
|
unfold foo,
|
||
|
|
apply rfl
|
||
|
|
end
|
||
|
|
|
||
|
|
end
|