lean4-htt/old_tests/tests/lean/run/unfold_default_values.lean
2018-04-10 12:56:55 -07:00

10 lines
166 B
Text

structure S :=
(x : nat)
(y : nat := 10)
example (a : nat) (h : 10 = a) : {S . x := 10}^.y = a :=
begin
simp [S.y._default],
guard_target 10 = a,
exact h
end