lean2/tests/lean/run/eq2.lean
2016-07-09 10:29:34 -07:00

5 lines
196 B
Text

definition symm {A : Type} : Π {a b : A}, a = b → b = a
| a a (eq.refl a) := rfl
definition trans {A : Type} : Π {a b c : A}, a = b → b = c → a = c
| a a a (eq.refl a) (eq.refl a) := rfl