Definition judgsize (p:cbv) := term_size (proj_left p) + value_size (proj_right p).

Lemma max_active_size_sublist: forall c c' lp lp', andl (map wf lp) -> cache_path c c' lp = true -> incl lp' lp -> (forall p : cbv, In p lp -> wf p -> max_active_size p <= maxl (map judgsize (activations p))) -> maxl (map (@max_active_size _ _ _) lp') <= maxl (map judgsize (flat_map (activations (constructor:=constructor)) lp')).