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

(* Specifications: *)
(* remarque préliminaire du Théorème 70 *)
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 = map term_from_value lval ->
term_assignment qic qif t <= (qif f l).