(* lt devrait aussi être défini par un let … in, mais ça plante à l'application du lemme et je ne comprends pas pourquoi. *)

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')).