(** We now compose them with the help of the lemma [paco2_mult]: - [paco2_mult f : paco2 f (paco2 f r) <2= paco2 f r]  The tactic [pmult] applies [paco{n}_mult] to the conclusion for an appropriate [n]. *)

(* Specifications: *)
Theorem teq'_eins : teq' one eins.
Theorem teq'_zwei : teq' two zwei.
Inductive eqone_gen eqone eqtwo : inftree -> Prop :=
| _eqone_gen : forall tl tr (EQL : eqone tl : Prop) (EQR : eqtwo tr : Prop),
eqone_gen eqone eqtwo (node 1 tl tr).