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