diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-07-03 13:38:42 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-07-05 13:17:47 +0200 |
commit | 107e9dfe3b7a75313029336222e34ecd58cd52a9 (patch) | |
tree | 909a41167b7749e34b21eb66f1942eed07817487 /pretyping | |
parent | d19605b7bfb8425b53be4cab30bef462c4fa4d14 (diff) |
Turn a dead branch into an assertion failure in VM reification.
In #7607, dead code that used to handle non-dependent return predicates
was removed. This made the reification branch expecting non-functions
in predicates dead code. We fix this by using an assert instead.
Diffstat (limited to 'pretyping')
-rw-r--r-- | pretyping/vnorm.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/vnorm.ml b/pretyping/vnorm.ml index 440076c16..c94408050 100644 --- a/pretyping/vnorm.ml +++ b/pretyping/vnorm.ml @@ -311,7 +311,7 @@ and nf_predicate env sigma ind mip params v pT = let dom = mkApp(mkIndU ind,Array.append params rargs) in let body = nf_vtype (push_rel (LocalAssum (name,dom)) env) sigma vb in mkLambda(name,dom,body) - | _ -> nf_val env sigma v crazy_type + | _ -> assert false and nf_args env sigma vargs ?from:(f=0) t = let t = ref t in |