Set * Set -- intersection of sets

Set * Set -- intersection of sets

Synopsis:

Operator: * -- a binary operator, usually used for multiplication

Input:

an instance of class Set.

Output:

an instance of class Set.

i1 : set {1,2,3} * set {2,3,4}



o1 = Set {2, 3}



o1 : Set

Code:

     -- ../../../Macaulay2/m2/set.m2:47-51
     Set * Set := Set => (x,y) -> (
          if # x < # y 
          then set select(keys x, k -> y#?k)
          else set select(keys y, k -> x#?k)
          )