(***********************************************************)
(* Code generation for (Call_K qp p) from cp (code for (Call_M p)) and cq (code for (Call_M q)) It's cp, followed by a PUSH, then cq                       *)

(* Specifications: *)
Lemma MMK :
forall p q : nat,
gencode (Call_M p) -> gencode (Call_M q) -> gencode (Call_K (q * p) p).