Commit 261714ad authored by Robbert Krebbers's avatar Robbert Krebbers

A comment about `later_car` not being non-expansive.

parent 74639a53
...@@ -984,6 +984,10 @@ Proof. ...@@ -984,6 +984,10 @@ Proof.
Qed. Qed.
(** Later *) (** Later *)
(** Note that the projection [later_car] is not non-expansive (see also the
lemma [later_car_anti_contractive] below), so it cannot be used in the logic.
If you need to get a witness out, you should use the lemma [Next_uninj]
instead. *)
Record later (A : Type) : Type := Next { later_car : A }. Record later (A : Type) : Type := Next { later_car : A }.
Add Printing Constructor later. Add Printing Constructor later.
Arguments Next {_} _. Arguments Next {_} _.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment