diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-06-17 20:26:35 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-06-18 18:54:43 +0200 |
commit | ecb032467557631ea60324c6afa55c91c133e40d (patch) | |
tree | 831803ca1db0e73ec3cea91c52f5f2e288d12341 /toplevel/assumptions.ml | |
parent | 53ced0735f7e24735d78a02fc74588b8d9186eab (diff) |
Reuse the typing_flags datatype for inductives.
Diffstat (limited to 'toplevel/assumptions.ml')
-rw-r--r-- | toplevel/assumptions.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/assumptions.ml b/toplevel/assumptions.ml index 921c4a1d8..fb32ecac3 100644 --- a/toplevel/assumptions.ml +++ b/toplevel/assumptions.ml @@ -307,7 +307,7 @@ let assumptions ?(add_opaque=false) ?(add_transparent=false) st gr t = accu | IndRef (m,_) | ConstructRef ((m,_),_) -> let mind = Global.lookup_mind m in - if mind.mind_checked_positive then + if mind.mind_typing_flags.check_guarded then accu else let l = try Refmap_env.find obj ax2ty with Not_found -> [] in |