>>> gradOp' opCoerce (Identity 5) :: (Int, Identity Int) (5, Identity 1)
opCoerce = opIso coerced coerce