fact: Definition lower_aux : forall (M: Term) (k: nat), env M |= k :! -> {N: Term | env N = loweredEnv (env M) k /\ term N = prelower_aux (term M) k /\ type N = type M }.
imports: Coq(Compare_dec Arith Lia) CoLoR(RelExtras ListExtras LogicUtil)