fact: Definition boundComputation (d p1 p2 : nat) : nat := nat_rec (fun _ => nat) (cTriple p1 p2 0) (fun _ rec : nat => cTriple p1 p2 (cPair rec rec)) d.
imports: Coq(Arith Vector Lia) hydras.Ackermann(primRec cPair folProp code extEqualNat codeSubTerm codeFreeVar)