fact: Definition lift (f: Z -> Z -> Z) : t -> t -> t := fun N1 N2 => match N1, N2 with | Bot, _ => Bot | _, Bot => Bot | Just n1, Just n2 => Just (f n1 n2) | _, _ => Top end.
imports: Coq(ZArith Psatz Bool String List FMaps) CDF(Sequences IMP)