From 29f83cf5d6ba300610486dd62b1e044a1d09f606 Mon Sep 17 00:00:00 2001
From: Ralf Jung <jung@mpi-sws.org>
Date: Wed, 10 Mar 2021 17:13:21 +0100
Subject: [PATCH] use notypeclasses refine for iInv
---
iris/proofmode/ltac_tactics.v | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/iris/proofmode/ltac_tactics.v b/iris/proofmode/ltac_tactics.v
index 8fd7b000e..da05cdfcb 100644
--- a/iris/proofmode/ltac_tactics.v
+++ b/iris/proofmode/ltac_tactics.v
@@ -2948,13 +2948,13 @@ Tactic Notation "iInvCore" constr(select) "with" constr(pats) "as" open_constr(H
end in
lazymatch type of select with
| string =>
- eapply @tac_inv_elim with (i:=select) (j:=H) (Pclose:=Pclose_pat);
+ notypeclasses refine (tac_inv_elim _ select H _ _ _ _ _ Pclose_pat _ _ _ _ _ _);
[ (by iAssumptionCore) || fail "iInv: invariant" select "not found" |..]
| ident =>
- eapply @tac_inv_elim with (i:=select) (j:=H) (Pclose:=Pclose_pat);
+ notypeclasses refine (tac_inv_elim _ select H _ _ _ _ _ Pclose_pat _ _ _ _ _ _);
[ (by iAssumptionCore) || fail "iInv: invariant" select "not found" |..]
| namespace =>
- eapply @tac_inv_elim with (j:=H) (Pclose:=Pclose_pat);
+ notypeclasses refine (tac_inv_elim _ _ H _ _ _ _ _ Pclose_pat _ _ _ _ _ _);
[ (by iAssumptionInv select) || fail "iInv: invariant" select "not found" |..]
| _ => fail "iInv: selector" select "is not of the right type "
end;
--
GitLab