fact: Definition ss_ok (ss : SSP.t) (interp: positive -> CONGpoint) := forall s, SSP.mem s ss = true -> forall p1 p2 p3 p4, SP.mem (p1,p2) s && SP.mem (p3,p4) s = true -> CTCong (interp p1) (interp p2) (interp p3) (interp p4).
imports: Recdef NArith GeoCoq.Utils.sets