exprToPred path (Tuple es _) =
    pTuple <$> exprsToPred (path.tuple_exprsL) es
exprToPred path (Tuple es _) =
    pTuple <$> exprsToPred (path.tuple_exprsL) es
exprToPred path (Tuple es _) =
    pTuple <$> exprsToPred (path.tuple_exprsL) es