Fixpoint repeat_op_table_nat{T: Type}(n: nat)(start: T)(op: T -> T): list T := match n with
| O => []
| S m => (repeat_op_table_nat m start op) ++ [repeat_op_nat m start op]
end.Definition repeat_op_table{T: Type}(n: Z)(start: T)(op: T -> T): list T :=
  repeat_op_table_nat (Z.to_nat n) start op.

Lemma repeat_op_table_nat_id_app: forall {T: Type} (len1 len2: nat) (v: T), repeat_op_table_nat (len1 + len2) v id = repeat_op_table_nat len1 v id ++ repeat_op_table_nat len2 v id.