Commit 615bcb77 by =

### Removing unused/commented proofs.

`I also simplified the double pattern matchings used in Expressions.v`
parent 57805bbd
 ... @@ -33,9 +33,6 @@ Fixpoint toREvalCmd (f:cmd R) := ... @@ -33,9 +33,6 @@ Fixpoint toREvalCmd (f:cmd R) := |Ret e => Ret (toREval e) |Ret e => Ret (toREval e) end. end. (*| Nop: cmd V. *) (* (* UNUSED! UNUSED! Small Step semantics for Daisy language Small Step semantics for Daisy language ... @@ -52,16 +49,6 @@ Inductive sstep : cmd R -> env -> R -> cmd R -> env -> Prop := ... @@ -52,16 +49,6 @@ Inductive sstep : cmd R -> env -> R -> cmd R -> env -> Prop := Define big step semantics for the Daisy language, terminating on a "returned" Define big step semantics for the Daisy language, terminating on a "returned" result value result value **) **) (* meaning of this -> mType ??? *) (* Inductive bstep : cmd R -> env -> R -> mType -> Prop := *) (* let_b m x e s E v res: *) (* eval_exp E e v m -> *) (* bstep s (updEnv x m v E) res m -> *) (* bstep (Let m x e s) E res m *) (* |ret_b m e E v: *) (* eval_exp E e v m -> *) (* bstep (Ret e) E v m. *) Inductive bstep : cmd R -> env -> R -> mType -> Prop := Inductive bstep : cmd R -> env -> R -> mType -> Prop := let_b m m' x e s E v res: let_b m m' x e s E v res: eval_exp E e v m -> eval_exp E e v m -> ... ...
 ... @@ -36,7 +36,6 @@ Proof. ... @@ -36,7 +36,6 @@ Proof. inversion eval_float; subst. inversion eval_float; subst. unfold perturb; simpl. unfold perturb; simpl. exists v; split; try auto. exists v; split; try auto. rewrite H3 in H8; inversion H8. rewrite H3 in H8; inversion H8. rewrite Rabs_err_simpl. rewrite Rabs_err_simpl. repeat rewrite Rabs_mult. repeat rewrite Rabs_mult. ... ...