-- switch is supposed to build the following term:

switchOpRun t e' p ps n =
    switchOp @@ [e'
                , L (H ((B0 :< p), [])
                       ""
                       (N (V 1 :$ A ((C (Su (N (V 0))))))))
                , ps $$ Snd
                , n ]
switchOpRun t e' p ps n =
    switchOp @@ [e'
                , L (H ((B0 :< p), [])
                       ""
                       (N (V 1 :$ A ((C (Su (N (V 0))))))))
                , ps $$ Snd
                , n ]
switchOpRun t e' p ps n =
    switchOp @@ [e'
                , L (H ((B0 :< p), [])
                       ""
                       (N (V 1 :$ A ((C (Su (N (V 0))))))))
                , ps $$ Snd
                , n ]