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) φ σ) // /φ;