fact: Definition join (N1 N2: t) : t := match N1, N2 with | Bot, _ => N2 | _, Bot => N1 | Top, _ => Top | _, Top => Top | Just n1, Just n2 => if n1 =? n2 then Just n1 else Top end.
imports: Coq(ZArith Psatz Bool String List FMaps) CDF(Sequences IMP)