diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2017-11-24 15:17:06 +0100 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2017-11-24 15:17:06 +0100 |
commit | 15f22178b01113be7fcd603317ac7883afb6bee4 (patch) | |
tree | 2d96805898aa01461059ed8b34ee9790122942ac /plugins/extraction | |
parent | a1a9f9d62dfe0e8dfb8c924a74e57c9f08b4f2d9 (diff) | |
parent | 7e47c1fc1d26590ffcc89b2d3716bc749e3e1597 (diff) |
Merge PR #486: Make some functions on terms more robust w.r.t new term constructs.
Diffstat (limited to 'plugins/extraction')
-rw-r--r-- | plugins/extraction/extraction.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/extraction/extraction.ml b/plugins/extraction/extraction.ml index 47e812319..4ae875cd7 100644 --- a/plugins/extraction/extraction.ml +++ b/plugins/extraction/extraction.ml @@ -302,7 +302,7 @@ let rec extract_type env db j c args = if Projection.unfolded p then Tunknown else extract_type env db j (mkProj (Projection.unfold p, t)) args | Case _ | Fix _ | CoFix _ -> Tunknown - | _ -> assert false + | Var _ | Meta _ | Evar _ | Cast _ | LetIn _ | Construct _ -> assert false (*s Auxiliary function dealing with type application. Precondition: [r] is a type scheme represented by the signature [s], |