Fixpoint depth (A : Formula) : nat :=
  match A with
  | equal _ _ => 0
  | atomic _ _ => 0
  | impH A B => S (max (depth A) (depth B))
  | notH A => S (depth A)
  | forallH _ A => S (depth A)
  end.Definition lt_depth (A B : Formula) : Prop := depth A < depth B.

Lemma depthForall : forall (A : Formula) (v : nat), lt_depth A (forallH v A).