contradiction? ( partition -- ? )

Vocabulary
regexp.classes

Definition

USING: accessors combinators.short-circuit kernel sequences
sets ;

IN: regexp.classes

: contradiction? ( partition -- ? )
    {
        [ [ simples>> ] [ not-simples>> ] bi intersects? ]
        [ other>> f swap member? ]
    } 1|| ;