lean4-htt/tests/lean/run/elab4.lean
2017-03-09 18:41:19 -08:00

4 lines
145 B
Text

#check λ (A : Type) (a b c d : A) (H1 : a = b) (H2 : c = b) (H3 : d = c),
calc a = b : H1
... = c : eq.symm H2
... = d : eq.symm H3