diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-12-29 14:08:57 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-12-29 14:08:57 +0100 |
| commit | 2d6e395dead61a49ede6208bc40e16b4b8e68ce4 (patch) | |
| tree | cd14828b3c41252961c3bb975e814541ed3c3b78 /plugins | |
| parent | 53ade7982bebc8a85133d6b5ba257962e2f3fc15 (diff) | |
| parent | 2be81020d8533b7d275f820fad8f597929aa064e (diff) | |
Merge PR #6493: [API] remove large file containing duplicate interfaces
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/.merlin | 1 | ||||
| -rw-r--r-- | plugins/funind/recdef.ml | 2 |
2 files changed, 1 insertions, 2 deletions
diff --git a/plugins/.merlin b/plugins/.merlin index dd6678ba0..2ba616962 100644 --- a/plugins/.merlin +++ b/plugins/.merlin @@ -1,2 +1 @@ REC -FLG -open API diff --git a/plugins/funind/recdef.ml b/plugins/funind/recdef.ml index 363ad5dfc..8fe05b497 100644 --- a/plugins/funind/recdef.ml +++ b/plugins/funind/recdef.ml @@ -861,7 +861,7 @@ let rec prove_le g = | App (c, [| x0 ; _ |]) -> EConstr.isVar sigma x0 && Id.equal (destVar sigma x0) (destVar sigma x) && - is_global sigma (le ()) c + EConstr.is_global sigma (le ()) c | _ -> false in let (h,t) = List.find (fun (_,t) -> matching_fun t) (pf_hyps_types g) |