fact: Definition upExtRen_exp_exp (xi : fin -> fin ) (zeta : fin -> fin ) (Eq : forall x, xi x = zeta x) : forall x, (upRen_exp_exp xi) x = (upRen_exp_exp zeta) x := fun n => match n with | S n => ap shift (Eq n) | 0 => eq_refl end.
imports: Undecidability.HOU(std.std)