fact: Definition common_worder_axiom g:= [/\ worder_fam g, (forall a b, inc a (domain g) -> inc b (domain g) -> segmentp (Vg g a) (substrate (Vg g b)) \/ segmentp (Vg g b) (substrate (Vg g a))) & monotone_order_fam g].
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)