fact: Definition diff := mk (pair.mk (u A) (u B)) (fun p a => pair.mk (M A (pair.pi1 p) a) (M B (pair.pi2 p) a)) (fun p => v A (pair.pi1 p) ⊓ ! v B (pair.pi2 p)) (vars A).
imports: comparisons positives ordinal pair lset monoid boolean prop sups bmx