diff options
| -rw-r--r-- | contrib/extraction/extraction.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/extraction/extraction.ml b/contrib/extraction/extraction.ml index 51ffc6bb43..6917b1380c 100644 --- a/contrib/extraction/extraction.ml +++ b/contrib/extraction/extraction.ml @@ -795,7 +795,7 @@ let extract_declaration r = match r with | ConstRef kn -> extract_constant_cache kn r | IndRef (kn,_) -> extract_inductive_declaration kn | ConstructRef ((kn,_),_) -> extract_inductive_declaration kn - | VarRef _ -> assert false + | VarRef kn -> error_section () (*s Check if a global reference corresponds to a logical inductive. *) |