Canonical Cint_span_opprPred s := OpprPred (Cint_span_zmod_closed s).Canonical Cint_span_addrPred s := AddrPred (Cint_span_zmod_closed s).Canonical Cint_span_zmodPred s := ZmodPred (Cint_span_zmod_closed s).Fact Aint_key : pred_key Aint.Canonical Aint_keyed := KeyedPred Aint_key.

Lemma Aint_Cint : {subset Cint <= Aint}.