fact: Definition intersection_with_canon x a := Lf (fun b => Zo (powerset x)(fun c=> b = a \cap c)) (powerset a)(quotient (equivalence_associated (intersection_with x a))).
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)