diff options
| author | Maxime Dénès | 2018-03-10 12:40:04 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-03-10 12:40:04 +0100 |
| commit | 33c5d8d00cb017c61141ee0d6b7cb8f672a3e691 (patch) | |
| tree | c7185ce535ef7c5438e79f1c4b81464c8367d6c9 /plugins/funind | |
| parent | 4d5c7243b4aea5b28358757e2d86c11334da6699 (diff) | |
| parent | 99129d2518bd9fe92051aa89138cbb57c839a270 (diff) | |
Merge PR #6869: [ssreflect] Fix module scoping problems due to packing and mli files.
Diffstat (limited to 'plugins/funind')
| -rw-r--r-- | plugins/funind/indfun.ml | 2 | ||||
| -rw-r--r-- | plugins/funind/indfun.mli | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/plugins/funind/indfun.ml b/plugins/funind/indfun.ml index b65d9867df..9c350483b3 100644 --- a/plugins/funind/indfun.ml +++ b/plugins/funind/indfun.ml @@ -93,7 +93,7 @@ let functional_induction with_clean c princl pat = in let encoded_pat_as_patlist = List.make (List.length args + List.length c_list - 1) None @ [pat] in - List.map2 (fun c pat -> ((None,Tacexpr.ElimOnConstr (fun env sigma -> (sigma,(c,NoBindings)) )),(None,pat),None)) + List.map2 (fun c pat -> ((None,Ltac_plugin.Tacexpr.ElimOnConstr (fun env sigma -> (sigma,(c,NoBindings)) )),(None,pat),None)) (args@c_list) encoded_pat_as_patlist in let princ' = Some (princ,bindings) in diff --git a/plugins/funind/indfun.mli b/plugins/funind/indfun.mli index 93e03852ec..dcc1c2ea6a 100644 --- a/plugins/funind/indfun.mli +++ b/plugins/funind/indfun.mli @@ -14,7 +14,7 @@ val functional_induction : bool -> EConstr.constr -> (EConstr.constr * EConstr.constr bindings) option -> - Tacexpr.or_and_intro_pattern option -> + Ltac_plugin.Tacexpr.or_and_intro_pattern option -> Goal.goal Evd.sigma -> Goal.goal list Evd.sigma |