Commit e3dfce9e authored by Joachim Bard's avatar Joachim Bard

removing conditionals from IEEE

parent 08ae87fa
......@@ -112,7 +112,7 @@ Fixpoint eval_expr_valid (e:expr fl64) E :=
(optionBind (eval_expr_float e1 E)
(fun v_e => eval_expr_valid e2 (updFlEnv x v_e E))
True)
| Cond e1 e2 e3 => False
(* | Cond e1 e2 e3 => False *)
end.
(*
......@@ -195,7 +195,7 @@ Fixpoint B2Qexpr (e: expr fl64) :=
| Fma e1 e2 e3 => Fma (B2Qexpr e1) (B2Qexpr e2) (B2Qexpr e3)
| Downcast m e => Downcast m (B2Qexpr e)
| Let m x e1 e2 => Let m x (B2Qexpr e1) (B2Qexpr e2)
| Cond e1 e2 e3 => Cond (B2Qexpr e1) (B2Qexpr e2) (B2Qexpr e3)
(* | Cond e1 e2 e3 => Cond (B2Qexpr e1) (B2Qexpr e2) (B2Qexpr e3) *)
end.
(*
......@@ -226,7 +226,7 @@ Fixpoint is64BitEval (V:Type) (e:expr V) :=
| Fma e1 e2 e3 => is64BitEval e1 /\ is64BitEval e2 /\ is64BitEval e3
| Downcast m e => m = M64 /\ is64BitEval e
| Let m x e g => is64BitEval e /\ m = M64 /\ is64BitEval g
| Cond e1 e2 e3 => is64BitEval e1 /\ is64BitEval e2 /\ is64BitEval e3
(* | Cond e1 e2 e3 => is64BitEval e1 /\ is64BitEval e2 /\ is64BitEval e3 *)
end.
(*
......@@ -246,7 +246,7 @@ Fixpoint noDowncast (V:Type) (e:expr V) :=
| Fma e1 e2 e3 => noDowncast e1 /\ noDowncast e2 /\ noDowncast e3
| Downcast m e => False
| Let m x e1 e2 => noDowncast e1 /\ noDowncast e2
| Cond e1 e2 e3 => noDowncast e1 /\ noDowncast e2 /\ noDowncast e3
(* | Cond e1 e2 e3 => noDowncast e1 /\ noDowncast e2 /\ noDowncast e3 *)
end.
(*
......@@ -1151,6 +1151,7 @@ Proof.
destruct (mTypeEq M64 m1) eqn:?; congruence.
*)
admit.
(*
- destruct (getValidMap defVars e1 akk) eqn:?;
simpl in *; try congruence.
destruct (getValidMap defVars e2 t) eqn:?;
......@@ -1189,6 +1190,7 @@ Proof.
inversion getMap_succeeds; subst.
find_cases; try (eapply valid_t1; now eauto).
congruence.
*)
Admitted.
(*
......
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