RowConstantABR
RelationABR
pred RowConstant(A,B,C: set univ, R: univ->univ) {
Relation[A,B,R]
R = R.(B->C)
}
PointABR
RowConstantABR
InjectiveABR
SurjectiveABR
pred Point(A,B: set univ, R: univ->univ) {
RowConstant[A,B,B,R]
Injective[A,B,R]
Surjective[A,B,R]
}