Skip to content
Snippets Groups Projects
Commit cea60198 authored by Ralf Jung's avatar Ralf Jung
Browse files

Coq future-compat: use qualified name for

parent 4b77018c
No related branches found
No related tags found
No related merge requests found
...@@ -92,7 +92,7 @@ Definition envs_simple_replace {M} (i : ident) (p : bool) (Γ : env (uPred M)) ...@@ -92,7 +92,7 @@ Definition envs_simple_replace {M} (i : ident) (p : bool) (Γ : env (uPred M))
Definition envs_replace {M} (i : ident) (p q : bool) (Γ : env (uPred M)) Definition envs_replace {M} (i : ident) (p q : bool) (Γ : env (uPred M))
(Δ : envs M) : option (envs M) := (Δ : envs M) : option (envs M) :=
if eqb p q then envs_simple_replace i p Γ Δ if Bool.eqb p q then envs_simple_replace i p Γ Δ
else envs_app q Γ (envs_delete i p Δ). else envs_app q Γ (envs_delete i p Δ).
Definition env_spatial_is_nil {M} (Δ : envs M) := Definition env_spatial_is_nil {M} (Δ : envs M) :=
...@@ -285,7 +285,7 @@ Lemma envs_replace_sound' Δ Δ' i p q Γ : ...@@ -285,7 +285,7 @@ Lemma envs_replace_sound' Δ Δ' i p q Γ :
envs_replace i p q Γ Δ = Some Δ' envs_replace i p q Γ Δ = Some Δ'
of_envs (envs_delete i p Δ) ?q [] Γ -∗ of_envs Δ'. of_envs (envs_delete i p Δ) ?q [] Γ -∗ of_envs Δ'.
Proof. Proof.
rewrite /envs_replace; destruct (eqb _ _) eqn:Hpq. rewrite /envs_replace; destruct (Bool.eqb _ _) eqn:Hpq.
- apply eqb_prop in Hpq as ->. apply envs_simple_replace_sound'. - apply eqb_prop in Hpq as ->. apply envs_simple_replace_sound'.
- apply envs_app_sound. - apply envs_app_sound.
Qed. Qed.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment