(**************************************************)
(* Code generation for (Call_K qp+r p) from kpr (code for (Call_K p r)) and mq (code for (Call_M q)) it's kpr, followed by a sequence (PUSH;SWAP), then mq and a MUL statement *)

Lemma KMK :
forall p q r : nat,
gencode (Call_K p r) -> gencode (Call_M q) -> gencode (Call_K (q * p + r) p).