fact: Fixpoint ec_total_statement (T : Type) `{! EqualInterpretation T} (c : EqualChain T) : Prop := match c with | base_ec _ x (_,y) => eq_rel_to_pred chain_eq x y | link_ec_eq _ ec (_,z) => (ec_total_statement _ ec) /\ (eq_rel_to_pred chain_eq (ec_tail ec) z) end.
imports: Reals.Rbase