diff options
| author | Maxime Dénès | 2018-05-31 10:59:24 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2018-05-31 10:59:24 +0200 |
| commit | ac8a84e3b4dc530b000e17b72c7e26f7a957420f (patch) | |
| tree | baf58d74b6629034cecb577eade044f29313cc4d /plugins/funind | |
| parent | 22db6304ffd45d7ae6e4a0acf909afb1ec55d02c (diff) | |
| parent | 0dc79e09b2b7c369b35191191aa257451a536540 (diff) | |
Merge PR #6969: [api] Remove functions deprecated in 8.8
Diffstat (limited to 'plugins/funind')
| -rw-r--r-- | plugins/funind/glob_termops.ml | 3 | ||||
| -rw-r--r-- | plugins/funind/indfun_common.ml | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/plugins/funind/glob_termops.ml b/plugins/funind/glob_termops.ml index ae238b846c..bb15875076 100644 --- a/plugins/funind/glob_termops.ml +++ b/plugins/funind/glob_termops.ml @@ -1,4 +1,5 @@ open Pp +open Constr open Glob_term open CErrors open Util @@ -16,7 +17,7 @@ let mkGApp(rt,rtl) = DAst.make @@ GApp(rt,rtl) let mkGLambda(n,t,b) = DAst.make @@ GLambda(n,Explicit,t,b) let mkGProd(n,t,b) = DAst.make @@ GProd(n,Explicit,t,b) let mkGLetIn(n,b,t,c) = DAst.make @@ GLetIn(n,b,t,c) -let mkGCases(rto,l,brl) = DAst.make @@ GCases(Term.RegularStyle,rto,l,brl) +let mkGCases(rto,l,brl) = DAst.make @@ GCases(RegularStyle,rto,l,brl) let mkGHole () = DAst.make @@ GHole(Evar_kinds.BinderType Anonymous,Misctypes.IntroAnonymous,None) (* diff --git a/plugins/funind/indfun_common.ml b/plugins/funind/indfun_common.ml index b0c9ff8fcb..c6faa142a4 100644 --- a/plugins/funind/indfun_common.ml +++ b/plugins/funind/indfun_common.ml @@ -109,7 +109,7 @@ let const_of_id id = let def_of_const t = match Constr.kind t with - Term.Const sp -> + Const sp -> (try (match Environ.constant_opt_value_in (Global.env()) sp with | Some c -> c | _ -> assert false) |