open eq

context
  parameter (A : Type)

  definition foo (a : A) : a = a := refl a

  definition bar (a : A) : foo a = refl a :=
  begin
    unfold foo,
    apply rfl
  end

end