lean2/tests/lean/simp_idp.hlean
2015-05-04 14:29:22 -07:00

10 lines
221 B
Text

open eq
example (A : Type) (C : A → Type) (a : A) (f g : C a → C a) (c : C a) : f = g → f (eq.rec_on idp c) = g c :=
begin
intros,
esimp,
state, -- simplified goal to f c = g c
congruence,
assumption
end