diff --git a/algebra/cofe.v b/algebra/cofe.v index 0e880514d5916be96d17daaa088c2ed938034712..a6ef44bd472db862c97556a7a16583aac8167a6f 100644 --- a/algebra/cofe.v +++ b/algebra/cofe.v @@ -89,7 +89,7 @@ Section cofe_mixin. End cofe_mixin. (** Discrete COFEs and Timeless elements *) -(* TODO RJ: On paper, I called these "discrete elements". I think that makes +(* TODO: On paper, We called these "discrete elements". I think that makes more sense. *) Class Timeless {A : cofeT} (x : A) := timeless y : x ≡{0}≡ y → x ≡ y. Arguments timeless {_} _ {_} _ _. diff --git a/heap_lang/lifting.v b/heap_lang/lifting.v index c95e71f2f312e8abd14d397474c1f9522a90b8f3..52219354c8c6e590d0c6b09e1e42e51a17c61b31 100644 --- a/heap_lang/lifting.v +++ b/heap_lang/lifting.v @@ -24,7 +24,7 @@ Lemma wp_alloc_pst E σ e v Φ : (▷ ownP σ ★ ▷ (∀ l, σ !! l = None ∧ ownP (<[l:=v]>σ) -★ Φ (LocV l))) ⊢ WP Alloc e @ E {{ Φ }}. Proof. - (* TODO RJ: This works around ssreflect bug #22. *) + (* TODO: This works around ssreflect bug #22. *) intros. set (φ (e' : expr []) σ' ef := ∃ l, ef = None ∧ e' = Loc l ∧ σ' = <[l:=v]>σ ∧ σ !! l = None). rewrite -(wp_lift_atomic_step (Alloc e) φ σ) // /φ;