(** *** Incremental proofs using our [pcofix]

    As before, we can easily turn the above [cofix]-proofs into
    [pcofix]-proofs.
*)

Definition teq' t1 t2 := paco2 teq_gen bot2 t1 t2.

Lemma teq'_two_one : forall r, (r two zwei : Prop) -> paco2 teq_gen r one eins.