Commit 925a9169 by Robbert Krebbers

### Backwards compatibility layer for ownP.

parent b0039d65
 ... @@ -93,6 +93,7 @@ program_logic/ectx_language.v ... @@ -93,6 +93,7 @@ program_logic/ectx_language.v program_logic/ectxi_language.v program_logic/ectxi_language.v program_logic/ectx_lifting.v program_logic/ectx_lifting.v program_logic/gen_heap.v program_logic/gen_heap.v program_logic/ownp.v heap_lang/lang.v heap_lang/lang.v heap_lang/tactics.v heap_lang/tactics.v heap_lang/wp_tactics.v heap_lang/wp_tactics.v ... ...
 ... @@ -165,7 +165,7 @@ Proof. ... @@ -165,7 +165,7 @@ Proof. Qed. Qed. End adequacy. End adequacy. Theorem wp_adequacy Σ Λ `{invPreG Σ} (e : expr Λ) σ φ : Theorem wp_adequacy Σ Λ `{invPreG Σ} e σ φ : (∀ `{Hinv : invG Σ}, (∀ `{Hinv : invG Σ}, True ={⊤}=∗ ∃ stateI : state Λ → iProp Σ, True ={⊤}=∗ ∃ stateI : state Λ → iProp Σ, let _ : irisG Λ Σ := IrisG _ _ Hinv stateI in let _ : irisG Λ Σ := IrisG _ _ Hinv stateI in ... @@ -189,7 +189,7 @@ Proof. ... @@ -189,7 +189,7 @@ Proof. iFrame. by iApply big_sepL_nil. iFrame. by iApply big_sepL_nil. Qed. Qed. Theorem wp_invariance {Λ} `{invPreG Σ} e σ1 t2 σ2 φ Φ : Theorem wp_invariance Σ Λ `{invPreG Σ} e σ1 t2 σ2 φ Φ : (∀ `{Hinv : invG Σ}, (∀ `{Hinv : invG Σ}, True ={⊤}=∗ ∃ stateI : state Λ → iProp Σ, True ={⊤}=∗ ∃ stateI : state Λ → iProp Σ, let _ : irisG Λ Σ := IrisG _ _ Hinv stateI in let _ : irisG Λ Σ := IrisG _ _ Hinv stateI in ... ...