Definition cbv_cache_entry (proof_tree : cbv) := (proj_left proof_tree, proj_right proof_tree).

(* This corollary corresponds to Proposition 6. *)
Corollary size_bound : forall i s p' t c v,
let p := cbv_update i s p' [] t c v in
let A := length (activations p) in
let S := max_active_size p in
wf p ->
size p <=
(A * activation_bound prog S + A + 1 + (max_arity * A * (1 + activation_bound prog S))) *
(activation_bound prog S + S +
(1 + S) *
(1 + (A * activation_bound prog S + A) + max_arity * (A * activation_bound prog S + A))).