induction n2; intuition; subst.
inversion H; clear H; subst.
econstructor.
econstructor.
trivial.
econstructor.
trivial.
trivial.
omega.
inversion H; clear H; subst.
econstructor.
econstructor; trivial.
econstructor.
trivial.
eauto.
econstructor.
econstructor; eauto.
eapply IHn2; eauto.
omega.
Qed.

(* Specifications: *)
Lemma dat_correct_repeat_same_h : forall depth repeats (A : Set)(c : Comp A) P ls t a t1,
dat_correct_h (Repeat c P) ls depth t ->
well_formed_comp c ->
In a (filter P (getSupport c)) ->
(forall a' n' ls',
evalDet_steps (cs_more c (firstn n' ls)) (cs_done a' ls') ->
ls' = nil)  ->
dat_correct_h c ls depth t1 ->
repeats >= depth ->
datRepeat_depth (dat_correct_h c nil) P repeats depth t1 t.