diff --git a/theories/logrel/term_typing_rules.v b/theories/logrel/term_typing_rules.v index 3cdacfd5871971ea84568879478ac8822425c824..6e5cc118056deabf55805420755f5288db129753 100644 --- a/theories/logrel/term_typing_rules.v +++ b/theories/logrel/term_typing_rules.v @@ -16,11 +16,13 @@ Section properties. (** Variable properties *) Lemma ltyped_var Γ (x : string) A : - Γ !! x = Some A → ⊢ Γ ⊨ x : A ⫤ delete x Γ. + ⊢ <[x := A]>Γ ⊨ x : A ⫤ delete x Γ. Proof. - iIntros (HΓx) "!>"; iIntros (vs) "HΓ /=". - iDestruct (env_ltyped_lookup with "HΓ") as (v ->) "[HA HΓ]"; first done. - iApply wp_value. eauto with iFrame. + iIntros "!>" (vs) "HΓ /=". + iDestruct (env_ltyped_lookup with "HΓ") as (v ->) "[HA HΓ]"; + first by apply lookup_insert. + iApply wp_value. iFrame "HA". + by rewrite delete_insert_delete. Qed. (** Subtyping *)