fact: Fixpoint eval_pp (e : ppT1) : T1 := match e with PP_fin 0 => zero | PP_fin n => n | PP_add e f => ( (eval_pp e) + (eval_pp f))%t1 | PP_mult e n => ( (eval_pp e) * (S n))%t1 | PP_exp e f => ((eval_pp e) ^ (eval_pp f))%t1 | ω => T1omega end.
imports: Coq(Arith Max Bool Lia Compare_dec Relations Ensembles Wellfounded Bool RelationClasses Operators_Properties ArithRing Logic.Eqdep_dec) hydras(More_Arith Restriction DecPreOrder) hydras(OrdNotations)