removing conditionals from IEEE

coq/IEEE_connection.v

@@ -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.
 
 (*