Fact Cint_key : pred_key Cint.Fact Cint_subring : subring_closed Cint.Canonical Cint_keyed := KeyedPred Cint_key.Canonical Cint_opprPred := OpprPred Cint_subring.Canonical Cint_addrPred := AddrPred Cint_subring.Canonical Cint_mulrPred := MulrPred Cint_subring.Canonical Cint_zmodPred := ZmodPred Cint_subring.Canonical Cint_semiringPred := SemiringPred Cint_subring.Canonical Cint_smulrPred := SmulrPred Cint_subring.Canonical Cint_subringPred := SubringPred Cint_subring.

(* Specifications: *)
Lemma Creal_Cint : {subset Cint <= Creal}.
Lemma truncC_gt0 x : (0 < truncC x)%N = (1 <= x).
Lemma truncC0Pn x : reflect (truncC x = 0%N) (~~ (1 <= x)).
Lemma truncC0 : truncC 0 = 0%N.
Lemma truncC1 : truncC 1 = 1%N.