fact: Definition pAU (p q : X -> Prop) (w : X) : Prop := forall pi, path pi -> pi 0 = w -> p_until p q pi.
imports: mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base modular_hilbert sltype)