diff options
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/auto.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tactics/auto.ml b/tactics/auto.ml index 46f484bf06..6b58baa997 100644 --- a/tactics/auto.ml +++ b/tactics/auto.ml @@ -156,7 +156,10 @@ let conclPattern concl pat tac = constr_bindings env sigma >>= fun constr_bindings -> let open Genarg in let open Geninterp in - let inj c = Val.inject (val_tag (topwit Constrarg.wit_constr)) c in + let inj c = match val_tag (topwit Constrarg.wit_constr) with + | Val.Base tag -> Val.Dyn (tag, c) + | _ -> assert false + in let fold id c accu = Id.Map.add id (inj c) accu in let lfun = Id.Map.fold fold constr_bindings Id.Map.empty in let ist = { lfun; extra = TacStore.empty } in |