fact: Definition join (N1 N2: t) : t := {| low := Zinf.max (low N1) (low N2); high := Zinf.max (high N1) (high N2) |}.
imports: Coq(ZArith Psatz Bool String List FMaps) Coq(FunctionalExtensionality) CDF(Sequences IMP)