Recording a Finite Domain

fof(fi_name, fi_domain
    ! [X] : ( X = e1 | X = e2 | ... | X = en ).