(* Return the proof tree of the list with the largest proj_left *)

(* Specifications: *)
Lemma In_proj_left_max_size_list p lp : lp <> [] -> In (proj_left_max_size_list p lp) lp.
Lemma proj_left_size_le_max_gen default proof_trees proof_tree:
In proof_tree proof_trees ->
term_size (proj_left proof_tree) <= term_size (proj_left (proj_left_max_size_list default proof_trees)).