Notation redundU := (TRANS.redundU Trans).Notation redundU2 := (TRANS.redundU2 Trans).Notation redundD := (TRANS.redundD Trans).(*Notation clauseset := ({set clause}).*)
Definition clauseset := set_finType clause.(* a derivation is the graph induced by the refl. transitive closure of trans *)
Notation deriv := (connect trans).

Lemma deriv0 (s: clauseset) : deriv s s.