fact: Definition Call_measure (c : Call) := match c return nat with | Call_M n => S (three * n) | Call_C n p => three * n | Call_K n p => S (S (three * n)) end.
imports: monoid spec Constants machine Euclid Le_lt_compl euclid shift two_power log2_spec develop Arith Peano_dec Compare_dec strategies Mult_compl Wf_nat Wf_compl