fact: Definition test_and_unify t x y := let (rx,t) := find t x in let (ry,t) := find t y in if Positive.eqb rx ry then (true,t) else (false, link t rx ry).
imports: ATBR(Common) ATBR(MyFSets) ATBR(BoolView) ATBR(Numbers)