diff options
| author | Hugo Herbelin | 2020-05-09 15:05:33 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2020-05-09 15:05:33 +0200 |
| commit | 56e2d2fe23bfe69f7c181e3786e8e95f1ee6151b (patch) | |
| tree | a90ea6b71c1aa506c43ead2b55bfb4ffaa1f0866 /plugins/ssr | |
| parent | 3d20cedd6c7a38e712a6d94ecf52158fe6aa49db (diff) | |
| parent | 4c39126f0a0a97152f67a3a5e7c86db860f48e39 (diff) | |
Merge PR #12163: Fix #12159 (Numeral Notations do not play well with multiple scopes for the same inductive)
Diffstat (limited to 'plugins/ssr')
| -rw-r--r-- | plugins/ssr/ssrparser.mlg | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/ssr/ssrparser.mlg b/plugins/ssr/ssrparser.mlg index 0307728819..60af804c1b 100644 --- a/plugins/ssr/ssrparser.mlg +++ b/plugins/ssr/ssrparser.mlg @@ -349,8 +349,8 @@ let interp_index ist gl idx = begin match Tacinterp.Value.to_constr v with | Some c -> let rc = Detyping.detype Detyping.Now false Id.Set.empty (pf_env gl) (project gl) c in - begin match Notation.uninterp_prim_token rc with - | _, Constrexpr.Numeral n when NumTok.Signed.is_int n -> + begin match Notation.uninterp_prim_token rc (None, []) with + | Constrexpr.Numeral n, _ when NumTok.Signed.is_int n -> int_of_string (NumTok.Signed.to_string n) | _ -> raise Not_found end |