|
(rep : geometric_set_replica; parent : geometric_set) : BOOLEAN;
IF NOT (('STRUCTURAL_FRAME_SCHEMA.GEOMETRIC_SET_REPLICA') IN TYPEOF(parent)) THEN
RETURN (TRUE);
END_IF;
IF (parent :=: rep) THEN
RETURN (FALSE);
ELSE RETURN(acyclic_set_replica(rep,
parent\geometric_set_replica.parent_set));
END_IF;
|
|