diff --git a/theories/program_logic/adequacy.v b/theories/program_logic/adequacy.v index ae5b3ead07bf1723a3e6159d5dff029db01d6d53..14d19858b4ca51e9214636f1acb59b487b6bfc3d 100644 --- a/theories/program_logic/adequacy.v +++ b/theories/program_logic/adequacy.v @@ -76,7 +76,7 @@ Proof. iMod (fupd_plain_mask with "H") as %?; eauto. Qed. -Lemma wptp_strong_adequacy Φ κs' s n e1 t1 κs e2 t2 σ1 σ2 : +Lemma wptp_strong_adequacy Φ κs' s n e1 t1 κs t2 σ1 σ2 : nsteps n (e1 :: t1, σ1) κs (t2, σ2) → state_interp σ1 (κs ++ κs') (length t1) -∗ WP e1 @ s; ⊤ {{ Φ }} -∗