let
cigar_op_seq_mismatch i =
Or_error
.(positive i >>|
fun
i
->
`
Seq_mismatch
i)