lean4-htt/tests/lean/run/eq2.lean
2016-09-18 17:13:13 -07:00

7 lines
207 B
Text

set_option new_elaborator true
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