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

Lemma qi_active_bounded_by_size qic qif cs: forall f lval lt, valid_QI qic qif cs -> let t := (fapply f lt) in let l := (map (fun x=> mcs * (term_size t)) lt) in (* lt devrait aussi être défini par un let … in, mais ça plante à l'application du lemme et je ne comprends pas pourquoi. *) lt = map term_from_value lval -> term_assignment qic qif t <= (qif f l).