Attention une mise à jour du serveur va être effectuée le lundi 17 mai entre 13h et 13h30. Cette mise à jour va générer une interruption du service de quelques minutes.

Commit 54847958 by POTTIER Francois

Remove marks in Coq files.

parent b69e9ec8
 ... ... @@ -121,7 +121,7 @@ Qed. (* In conclusion, we have the following equivalence: *) Theorem star_cbv_bigcbv_eq: Lemma star_cbv_bigcbv_eq: forall t v, (star cbv t v /\ is_value v) <-> bigcbv t v. Proof. ... ... @@ -141,13 +141,11 @@ Qed. (* We break the mutual induction between [cvalue] and [cenv] by inlining the definition of [cenv] into the definition of [cvalue]. *) (* CVALUE *) Inductive cvalue := | Clo: {bind term} -> list cvalue -> cvalue. Definition cenv := list cvalue. (* CVALUE *) (* This dummy cvalue is passed below as an argument to [nth], but is really irrelevant, as the condition [x < length e] ensures that the dummy cvalue ... ...
 ... ... @@ -21,7 +21,6 @@ Require Import LambdaCalculusBigStep. evaluation diverges. (Exercise: exhibit a term that reduces to itself in one or more reduction steps. Prove in Coq that this is the case.) *) (* FAILINTERPRET *) Fail Fixpoint interpret (e : cenv) (t : term) : cvalue := match t with | Var x => ... ... @@ -35,13 +34,10 @@ Fail Fixpoint interpret (e : cenv) (t : term) : cvalue := match cv1 with Clo u1 e' => interpret (cv2 :: e') u1 end (* FAILINTERPRET *) | Let t1 t2 => let cv1 := interpret e t1 in interpret (cv1 :: e) t2 (* FAILINTERPRET *) end. (* FAILINTERPRET *) (* -------------------------------------------------------------------------- *) ... ... @@ -62,7 +58,6 @@ Fail Fixpoint interpret (e : cenv) (t : term) : cvalue := [interpret] by well-founded recursion. This can be done in Coq but is more complicated, so (here) not worth the trouble. *) (* FIXINTERPRET *) Fixpoint interpret (n : nat) e t : option cvalue := match n with | 0 => None (* not enough fuel *) ... ... @@ -76,13 +71,10 @@ Fixpoint interpret (n : nat) e t : option cvalue := match cv1 with Clo u1 e' => interpret n (cv2 :: e') u1 end (* FIXINTERPRET *) | Let t1 t2 => interpret n e t1 >>= fun cv1 => interpret n (cv1 :: e) t2 (* FIXINTERPRET *) end end. (* FIXINTERPRET *) (* -------------------------------------------------------------------------- *) ... ...
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!