fact: Definition Comp_ind_deep (P : Comp -> Prop) (IHVar : forall x : nat, P (CompVar x)) (IHApp : forall s : Comp, P s -> forall t : Comp, P t -> P (s t)) (IHClos : forall (s : term) (A : list Comp), (forall a, a el A -> P a) -> P (CompClos s A)) : forall x, P x.