fact: CoInductive cAR (p q : X -> Prop) (w : X) : Prop := | AR0 : p w -> q w -> cAR p q w | ARs : q w -> (forall v, e w v -> cAR p q v) -> cAR p q w.
imports: mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert sltype)