Commit 40ddc78f authored by Ralf Jung's avatar Ralf Jung
Browse files

resurrect proof that later_car is 'anti-contractive'

parent 91452d8a
......@@ -874,6 +874,10 @@ Section later.
Lemma contractive_alt {B : ofeT} (f : A B) :
Contractive f ( n x y, Next x {n} Next y f x {n} f y).
Proof. done. Qed.
Lemma later_car_anti_contractive :
n, Proper (dist n ==> dist_later n) later_car.
Proof. move=> n [x] [y] /= Hxy. done. Qed.
End later.
Arguments laterC : clear implicits.
Supports Markdown
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