proposition: Lemma M3 : gencode (Call_M three).
proof: Proof. refine (gencode_intro _ (seq PUSH (seq SQR (seq MUL End))) _). constructor 1. simpl in |- *; unfold power, three in |- *; intros. rewrite (u_neutral_r M MO). rewrite <- (point_assoc M MO); auto with arith. Qed.
imports: Constants monoid spec machine Wf_compl Plus Mult Lt Mult_compl euclid two_power