How do you want the result? Printed lines on standard output? One for each pair of connected nodes, as you have shown it below "result"? Or collected in another fact? -W On 4 June 2014 10:09, nill <nillx87(a)hotmail.com&gt; wrote:

On 04/06/2014, nill <nillx87(a)hotmail.com&gt; wrote: One what? Where? With what content? -W

To remove all redundant Link objects and assuming that class Link is declared as class Link { Node source; Node target; } (and not as given in the original post), the rule: rule "kill redundant links" when $l1: Link( $s: source, $t: target ) $l2: Link( this != $l1, source == $s && target == $t || source == $t && target == $s ) $n1: Node( out contains $l2 ) $n2: Node( in contains $l2 ) then retract( $l2 ); modify( $n1 ){ getOut().remove( $l2 ) } modify( $n2 ){ getIn().remove( $l2 ) } end removes all redundant Link facts and updates the out and in fields of the Nodes at either end of these links. -W On 04/06/2014, nill <nillx87(a)hotmail.com&gt; wrote: