Definition double_round_plus_beta_ge_3_hyp fexp1 fexp2 :=
  (forall ex ey, (fexp1 (ex + 1) <= ey)%Z -> (fexp2 ex <= fexp1 ey)%Z)
  /\ (forall ex ey, (fexp1 (ex - 1) + 1 <= ey)%Z -> (fexp2 ex <= fexp1 ey)%Z)
  /\ (forall ex ey, (fexp1 ex <= ey)%Z -> (fexp2 ex <= fexp1 ey)%Z)
  /\ (forall ex ey, (ex - 1 <= ey)%Z -> (fexp2 ex <= fexp1 ey)%Z).

(* Specifications: *)
Lemma double_round_plus_beta_ge_3_aux0 : forall (fexp1 fexp2 : Z -> Z), Valid_exp fexp1 -> double_round_plus_beta_ge_3_hyp fexp1 fexp2 -> forall x y, (0 < y)%R -> (y <= x)%R -> (fexp1 (ln_beta x) <= ln_beta y)%Z -> generic_format beta fexp1 x -> generic_format beta fexp1 y -> generic_format beta fexp2 (x + y).
Lemma double_round_plus_beta_ge_3_aux1 : (3 <= beta)%Z -> forall (fexp1 fexp2 : Z -> Z), Valid_exp fexp1 -> Valid_exp fexp2 -> forall (choice1 choice2 : Z -> bool), double_round_plus_beta_ge_3_hyp fexp1 fexp2 -> forall x y, 0 < x -> 0 < y -> (ln_beta y <= fexp1 (ln_beta x) - 1)%Z -> generic_format beta fexp1 x -> double_round_eq fexp1 fexp2 choice1 choice2 (x + y).
Lemma double_round_plus_beta_ge_3_aux2 : (3 <= beta)%Z -> forall (fexp1 fexp2 : Z -> Z), Valid_exp fexp1 -> Valid_exp fexp2 -> forall (choice1 choice2 : Z -> bool), double_round_plus_beta_ge_3_hyp fexp1 fexp2 -> forall x y, 0 < y -> y <= x -> generic_format beta fexp1 x -> generic_format beta fexp1 y -> double_round_eq fexp1 fexp2 choice1 choice2 (x + y).
Lemma double_round_plus_beta_ge_3_aux : (3 <= beta)%Z -> forall (fexp1 fexp2 : Z -> Z), Valid_exp fexp1 -> Valid_exp fexp2 -> forall (choice1 choice2 : Z -> bool), double_round_plus_beta_ge_3_hyp fexp1 fexp2 -> forall x y, 0 <= x -> 0 <= y -> generic_format beta fexp1 x -> generic_format beta fexp1 y -> double_round_eq fexp1 fexp2 choice1 choice2 (x + y).
Lemma double_round_minus_beta_ge_3_aux0 : forall (fexp1 fexp2 : Z -> Z), double_round_plus_beta_ge_3_hyp fexp1 fexp2 -> forall x y, 0 < y -> y < x -> (fexp1 (ln_beta x) <= ln_beta y)%Z -> generic_format beta fexp1 x -> generic_format beta fexp1 y -> generic_format beta fexp2 (x - y).
Lemma double_round_minus_beta_ge_3_aux1 : forall (fexp1 fexp2 : Z -> Z), Valid_exp fexp1 -> Valid_exp fexp2 -> double_round_plus_beta_ge_3_hyp fexp1 fexp2 -> forall x y, 0 < y -> y < x -> (ln_beta y <= fexp1 (ln_beta x) - 1)%Z -> (fexp1 (ln_beta (x - y)) <= ln_beta y)%Z -> generic_format beta fexp1 x -> generic_format beta fexp1 y -> generic_format beta fexp2 (x - y).
Lemma double_round_minus_beta_ge_3_aux2 : (3 <= beta)%Z -> forall (fexp1 fexp2 : Z -> Z), Valid_exp fexp1 -> Valid_exp fexp2 -> forall (choice1 choice2 : Z -> bool), double_round_plus_beta_ge_3_hyp fexp1 fexp2 -> forall x y, 0 < y -> y < x -> (ln_beta y <= fexp1 (ln_beta x) - 1)%Z -> (ln_beta y <= fexp1 (ln_beta (x - y)) - 1)%Z -> generic_format beta fexp1 x -> generic_format beta fexp1 y -> double_round_eq fexp1 fexp2 choice1 choice2 (x - y).
Lemma double_round_minus_beta_ge_3_aux3 : (3 <= beta)%Z -> forall (fexp1 fexp2 : Z -> Z), Valid_exp fexp1 -> Valid_exp fexp2 -> forall (choice1 choice2 : Z -> bool), double_round_plus_beta_ge_3_hyp fexp1 fexp2 -> forall x y, 0 < y -> y <= x -> generic_format beta fexp1 x -> generic_format beta fexp1 y -> double_round_eq fexp1 fexp2 choice1 choice2 (x - y).
Lemma double_round_minus_beta_ge_3_aux : (3 <= beta)%Z -> forall (fexp1 fexp2 : Z -> Z), Valid_exp fexp1 -> Valid_exp fexp2 -> forall (choice1 choice2 : Z -> bool), double_round_plus_beta_ge_3_hyp fexp1 fexp2 -> forall x y, 0 <= x -> 0 <= y -> generic_format beta fexp1 x -> generic_format beta fexp1 y -> double_round_eq fexp1 fexp2 choice1 choice2 (x - y).
Lemma double_round_plus_beta_ge_3 : (3 <= beta)%Z -> forall (fexp1 fexp2 : Z -> Z), Valid_exp fexp1 -> Valid_exp fexp2 -> forall (choice1 choice2 : Z -> bool), double_round_plus_beta_ge_3_hyp fexp1 fexp2 -> forall x y, generic_format beta fexp1 x -> generic_format beta fexp1 y -> double_round_eq fexp1 fexp2 choice1 choice2 (x + y).
Lemma double_round_minus_beta_ge_3 : (3 <= beta)%Z -> forall (fexp1 fexp2 : Z -> Z), Valid_exp fexp1 -> Valid_exp fexp2 -> forall (choice1 choice2 : Z -> bool), double_round_plus_beta_ge_3_hyp fexp1 fexp2 -> forall x y, generic_format beta fexp1 x -> generic_format beta fexp1 y -> double_round_eq fexp1 fexp2 choice1 choice2 (x - y).
Lemma FLX_double_round_plus_beta_ge_3_hyp : (2 * prec <= prec')%Z -> double_round_plus_beta_ge_3_hyp (FLX_exp prec) (FLX_exp prec').
Theorem double_round_plus_beta_ge_3_FLX : (3 <= beta)%Z -> forall choice1 choice2, (2 * prec <= prec')%Z -> forall x y, FLX_format beta prec x -> FLX_format beta prec y -> double_round_eq (FLX_exp prec) (FLX_exp prec') choice1 choice2 (x + y).
Theorem double_round_minus_beta_ge_3_FLX : (3 <= beta)%Z -> forall choice1 choice2, (2 * prec <= prec')%Z -> forall x y, FLX_format beta prec x -> FLX_format beta prec y -> double_round_eq (FLX_exp prec) (FLX_exp prec') choice1 choice2 (x - y).
Lemma FLT_double_round_plus_beta_ge_3_hyp : (emin' <= emin)%Z -> (2 * prec <= prec')%Z -> double_round_plus_beta_ge_3_hyp (FLT_exp emin prec) (FLT_exp emin' prec').
Theorem double_round_plus_beta_ge_3_FLT : (3 <= beta)%Z -> forall choice1 choice2, (emin' <= emin)%Z -> (2 * prec <= prec')%Z -> forall x y, FLT_format beta emin prec x -> FLT_format beta emin prec y -> double_round_eq (FLT_exp emin prec) (FLT_exp emin' prec') choice1 choice2 (x + y).
Theorem double_round_minus_beta_ge_3_FLT : (3 <= beta)%Z -> forall choice1 choice2, (emin' <= emin)%Z -> (2 * prec <= prec')%Z -> forall x y, FLT_format beta emin prec x -> FLT_format beta emin prec y -> double_round_eq (FLT_exp emin prec) (FLT_exp emin' prec') choice1 choice2 (x - y).
Lemma FTZ_double_round_plus_beta_ge_3_hyp : (emin' + prec' <= emin + 1)%Z -> (2 * prec <= prec')%Z -> double_round_plus_beta_ge_3_hyp (FTZ_exp emin prec) (FTZ_exp emin' prec').
Theorem double_round_plus_beta_ge_3_FTZ : (3 <= beta)%Z -> forall choice1 choice2, (emin' + prec' <= emin + 1)%Z -> (2 * prec <= prec')%Z -> forall x y, FTZ_format beta emin prec x -> FTZ_format beta emin prec y -> double_round_eq (FTZ_exp emin prec) (FTZ_exp emin' prec') choice1 choice2 (x + y).
Theorem double_round_minus_beta_ge_3_FTZ : (3 <= beta)%Z -> forall choice1 choice2, (emin' + prec' <= emin + 1)%Z -> (2 * prec <= prec')%Z -> forall x y, FTZ_format beta emin prec x -> FTZ_format beta emin prec y -> double_round_eq (FTZ_exp emin prec) (FTZ_exp emin' prec') choice1 choice2 (x - y).
Lemma double_round_mid_cases : forall (fexp1 fexp2 : Z -> Z), Valid_exp fexp1 -> Valid_exp fexp2 -> forall (choice1 choice2 : Z -> bool), forall x, 0 < x -> (fexp2 (ln_beta x) <= fexp1 (ln_beta x) - 1)%Z -> (fexp1 (ln_beta x) <= ln_beta x)%Z -> (Rabs (x - midp fexp1 x) <= / 2 * (ulp beta fexp2 x) -> double_round_eq fexp1 fexp2 choice1 choice2 x) -> double_round_eq fexp1 fexp2 choice1 choice2 x.