fact: CoInductive disj_spec (s1 s2 : fmap) : bool -> Type := | disj_true of (forall x, x \in supp s1 -> x \notin supp s2) : disj_spec s1 s2 true | disj_false x of x \in supp s1 & x \in supp s2 : disj_spec s1 s2 false.
imports: mathcomp(ssreflect ssrbool eqtype ssrfun seq path) LemmaOverloading(ordtype prelude)