fix: typo

This commit is contained in:
Leonardo de Moura 2020-03-08 11:31:05 -07:00
parent c972742494
commit 74908bb9c7

View file

@ -54,7 +54,7 @@ withMVarContext mvarId $ do
newMVar ← mkFreshExprSyntheticOpaqueMVar newTarget tag;
assignExprMVar mvarId (mkApp val newMVar);
mvarId ← tryClear newMVar.mvarId! fvarId;
pure $ InjectionResultCore.subgoal newMVar.mvarId! aCtor.nfields
pure $ InjectionResultCore.subgoal mvarId aCtor.nfields
| _ => throwTacticEx `injection mvarId "ill-formed noConfusion auxiliary construction"
| _, _ => throwTacticEx `injection mvarId "equality of constructor applications expected"