End QI.
Section Partial_QI.
Variables variable function constructor : Type.
Notation p_compatible_QI := (p_compatible_QI variable function constructor).
Notation term_from_value := (Syntax.term_from_value variable function (constructor:=constructor)).
Notation p_smc := (p_smc variable function constructor).

Lemma p_smc_QI_app f prog1 prog2 qic:
p_compatible_QI prog1 qic f ->
{g | p_smc prog2 qic (f;;g)} ->
{g | p_smc (prog1 ++ prog2) qic (f;;g)}.