From 5180d1cd4548b2ae5193fe9e76b97cbf6ffbc345 Mon Sep 17 00:00:00 2001 From: Ralf Jung <jung@mpi-sws.org> Date: Thu, 9 Mar 2017 19:43:13 +0100 Subject: [PATCH] fix build --- theories/program_logic/ownp.v | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/theories/program_logic/ownp.v b/theories/program_logic/ownp.v index 54fb03310..d94281cf3 100644 --- a/theories/program_logic/ownp.v +++ b/theories/program_logic/ownp.v @@ -219,7 +219,9 @@ Section ectx_lifting. (∀ σ1 e2' σ2 efs', head_step e1 σ1 e2' σ2 efs' → σ1 = σ2 ∧ e2 = e2' ∧ efs = efs') → ▷ (WP e2 @ E {{ Φ }} ∗ [∗ list] ef ∈ efs, WP ef {{ _, True }}) ⊢ WP e1 @ E {{ Φ }}. - Proof using Hinh. eauto using wp_lift_pure_det_step. Qed. + Proof using Hinh. + intros. rewrite -[(WP e1 @ _ {{ _ }})%I]wp_lift_pure_det_step; eauto. + Qed. Lemma ownP_lift_pure_det_head_step_no_fork {E Φ} e1 e2 : to_val e1 = None → -- GitLab