fact: Definition compute_terminator {A} (l: mlist A) : M string := match l with | [m:] => M.ret "_all" | [m: _] => M.ret "1" | _ :m: [m:_] => M.ret "2" | _ :m: _ :m: [m:_] => M.ret "3" | _ :m: _ :m: _ :m: [m:_] => M.ret "4" | _ :m: _ :m: _ :m: _ :m: [m:_] => M.ret "5" | _ => M.failwith "Unsupported" end%string.
imports: Mtac2(Base Tactics) ssrmatching.ssrmatching Strings.String Mtac2.lib.List