7 lines
205 B
Text
7 lines
205 B
Text
namespace test
|
|
definition symm {A : Type} : Π {a b : A}, a = b → b = a
|
|
| a .(a) rfl := rfl
|
|
|
|
definition trans {A : Type} : Π {a b c : A}, a = b → b = c → a = c
|
|
| a .(a) .(a) rfl rfl := rfl
|
|
end test
|