lean2/tests/lean/run/eq2.lean

6 lines
173 B
Text
Raw Normal View History

definition symm {A : Type} : Π {a b : A}, a = b → b = a
| symm rfl := rfl
definition trans {A : Type} : Π {a b c : A}, a = b → b = c → a = c
| trans rfl rfl := rfl