fact: Definition embed_env n (phi : Fin.t n -> nat) : nat -> nat := fun k => match Compare_dec.lt_dec k n with | left H => phi (of_nat_lt H) | _ => 0 end.
imports: Undecidability.H10(H10 Dio.dio_single H10p) Undecidability.Synthetic.Definitions Fin