fact: Fixpoint inject (t:T1) : Ord := match t with | T1.zero => zero | T1.cons a n b => AP._phi0 (inject a) * S n + inject b end.
imports: hydras(Epsilon0.Epsilon0 ON_Generic) hydras(Schutte_basics Schutte.Addition AP CNF)