let
declare tcomp _eqname =
Formula
.
Predicate
[
Record
tcomp;
Record
tcomp]