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.

Lemma truncC_gt0 x : (0 < truncC x)%N = (1 <= x).