lean4-htt/tests/lean/run/elab4.lean

4 lines
144 B
Text

#elab λ (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