proposition: Lemma liftedEnv_next : forall A E n k, liftedEnv n (decl A E) (S k) = decl A (liftedEnv n E k).
proof: Proof. intros A E n k. unfold liftedEnv; simpl. destruct k. simpl. rewrite finalSeg_full. unfold decl; rewrite finalSeg_cons; trivial. destruct E; trivial. Qed.
imports: Coq(Compare_dec Arith Lia) CoLoR(RelExtras ListExtras LogicUtil)