fact: Definition rinstInst_up_exp_exp (xi : fin -> fin ) (sigma : fin -> exp ) (Eq : forall x, (funcomp (var_exp ) xi) x = sigma x) : forall x, (funcomp (var_exp ) (upRen_exp_exp xi)) x = (up_exp_exp sigma) x := fun n => match n with | S n => ap (ren_exp shift) (Eq n) | 0 => eq_refl end.
imports: Undecidability.HOU(std.std)