proposition: Theorem match_SF2B : forall {T} fz fi fn ff x Hx, match SF2B x Hx return T with | B754_zero sx => fz sx | B754_infinity sx => fi sx | B754_nan => fn | B754_finite sx mx ex _ => ff sx mx ex end = match x with | S754_zero sx => fz sx | S754_infinity sx => fi sx | S754_nan => fn | S754_finite sx mx ex => ff sx mx ex end.
proof: Proof. now intros T fz fi fn ff [sx|sx| |sx mx ex] Hx. Qed.
imports: Coq(ZArith Reals Psatz SpecFloat) Core Round Bracket Operations Div Sqrt Relative