diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2017-03-21 08:53:07 +0100 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2017-11-23 18:15:25 +0100 |
commit | 7e47c1fc1d26590ffcc89b2d3716bc749e3e1597 (patch) | |
tree | c99de5c368b69486ce5b1f353ac0c93b8490ec2b | |
parent | 39cbf75c554cd7e5228bd6cd962766e865c3f26b (diff) |
Make one more function robust in term_dnet.ml
Was actually forgotten in native-coq.
-rw-r--r-- | tactics/term_dnet.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tactics/term_dnet.ml b/tactics/term_dnet.ml index 901f366ec..7567cfa30 100644 --- a/tactics/term_dnet.ml +++ b/tactics/term_dnet.ml @@ -221,7 +221,8 @@ struct let terminal = function | (DRel | DSort | DNil | DRef _) -> true - | _ -> false + | DLambda _ | DApp _ | DCase _ | DFix _ | DCoFix _ | DCtx _ | DCons _ -> + false let compare t1 t2 = compare dummy_cmp t1 t2 |