Skip to content

GitLab

Commit 9accfd70 authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Fix issue #198.

parent 7319e95e
Pipeline #9583 passed with stage
in 18 minutes and 59 seconds
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
theories/proofmode/ltac_tactics.v
View file @ 9accfd70
......@@ -982,7 +982,7 @@ Tactic Notation "iModIntro" uconstr(sel) :=
| MIEnvIsEmpty => fail "iModIntro: persistent context is non-empty"
end
|iSolveTC ||
let s := lazymatch goal with |- IntoModalPersistentEnv _ _ _ ?s => s end in
let s := lazymatch goal with |- IntoModalSpatialEnv _ _ _ ?s _ => s end in
lazymatch eval hnf in s with
| MIEnvForall ?C => fail "iModIntro: spatial context does not satisfy" C
| MIEnvIsEmpty => fail "iModIntro: spatial context is non-empty"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment