28cf146d00
This PR fixes a bug where the monad lift coercion elaborator would partially unify expressions even if they were not monads. This could be taken advantage of to propagate information that could help elaboration make progress, for example the first `change` worked because the monad lift coercion elaborator was unifying `@Eq _ _` with `@Eq (Nat × Nat) p`: ```lean example (p : Nat × Nat) : p = p := by change _ = ⟨_, _⟩ -- used to work (yielding `p = (p.fst, p.snd)`), now it doesn't change ⟨_, _⟩ = _ -- never worked ``` As such, this is a breaking change; you may need to adjust expressions to include additional implicit arguments.
36 lines
480 B
Text
36 lines
480 B
Text
set_option pp.mvars false
|
|
|
|
def f (x : Nat) := x + 1
|
|
|
|
example : f x = x + 1 := rfl
|
|
|
|
/--
|
|
error: type mismatch
|
|
rfl
|
|
has type
|
|
?_ = ?_ : Prop
|
|
but is expected to have type
|
|
f x = x + 1 : Prop
|
|
-/
|
|
#guard_msgs in
|
|
seal f in
|
|
example : f x = x + 1 := rfl
|
|
|
|
example : f x = x + 1 := rfl
|
|
|
|
seal f
|
|
|
|
/--
|
|
error: type mismatch
|
|
rfl
|
|
has type
|
|
?_ = ?_ : Prop
|
|
but is expected to have type
|
|
f x = x + 1 : Prop
|
|
-/
|
|
#guard_msgs in
|
|
example : f x = x + 1 := rfl
|
|
|
|
unseal f
|
|
|
|
example : f x = x + 1 := rfl
|