diff options
author | 2015-12-11 13:02:37 +0100 | |
---|---|---|
committer | 2015-12-11 13:06:53 +0100 | |
commit | 50d241267e2eb41cb06eb2f48a5ce440f0458b71 (patch) | |
tree | f5d7c15cd62cf41177f2f902559ff21fc2988c54 /toplevel | |
parent | e70165079e8defe490a568ece20a7029e4c1626e (diff) | |
parent | 119d61453c6761f20b8862f47334bfb8fae0049e (diff) |
Merge branch 'v8.5'
Diffstat (limited to 'toplevel')
-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 a6bd968ef..a71588fe0 100644 --- a/toplevel/assumptions.ml +++ b/toplevel/assumptions.ml @@ -158,7 +158,7 @@ let rec traverse current ctx accu t = match kind_of_term t with | Case (_,oty,c,[||]) -> (* non dependent match on an inductive with no constructors *) begin match Constr.(kind oty, kind c) with - | Lambda(Anonymous,_,oty), Const (kn, _) + | Lambda(_,_,oty), Const (kn, _) when Vars.noccurn 1 oty && not (Declareops.constant_has_body (lookup_constant kn)) -> let body () = Global.body_of_constant_body (lookup_constant kn) in |