unzip

{-
Unzip an `Optional` value into two separate `Optional` values

Examples:

```
./unzip
Text
Bool
([{ _1 = "ABC", _2 = True  }] : Optional { _1 : Text, _2 : Bool })
= { _1 = ["ABC"] : Optional Text, _2 = [True] : Optional Bool }

./unzip Text Bool ([] : Optional { _1 : Text, _2 : Bool })
= { _1 = [] : Optional Text, _2 = [] : Optional Bool }
```
-}
let unzip
    :   ∀(a : Type)
    →   ∀(b : Type)
    →   Optional { _1 : a, _2 : b }
    →   { _1 : Optional a, _2 : Optional b }
    =   λ(a : Type)
    →   λ(b : Type)
    →   λ(xs : Optional { _1 : a, _2 : b })
    →   { _1 =
            Optional/fold
            { _1 : a, _2 : b }
            xs
            (Optional a)
            (λ(x : { _1 : a, _2 : b }) → [x._1] : Optional a)
            ([] : Optional a)
        , _2 =
            Optional/fold
            { _1 : a, _2 : b }
            xs
            (Optional b)
            (λ(x : { _1 : a, _2 : b }) → [x._2] : Optional b)
            ([] : Optional b)
        }

in  unzip