
[;1m  extension(BinRel1, Set, AnySet)[0m

  Returns the extension of [;;4mBinRel1[0m such that for each element E in [;;4m[0m
  [;;4mSet[0m that does not belong to the domain of [;;4mBinRel1[0m, [;;4mBinRel2[0m
  contains the pair (E, [;;4mAnySet[0m).

    1> S = sofs:set([b,c]),
    A = sofs:empty_set(),
    R = sofs:family([{a,[1,2]},{b,[3]}]),
    X = sofs:extension(R, S, A),
    sofs:to_external(X).
    [{a,[1,2]},{b,[3]},{c,[]}]
