12 lines
163 B
Text
12 lines
163 B
Text
open eq
|
|
|
|
section
|
|
parameter (A : Type)
|
|
|
|
definition foo (a : A) : a = a := refl a
|
|
|
|
definition bar (a : A) : foo a = refl a :=
|
|
begin
|
|
unfold foo
|
|
end
|
|
end
|