From 7e47c1fc1d26590ffcc89b2d3716bc749e3e1597 Mon Sep 17 00:00:00 2001
From: Maxime Dénès
Date: Tue, 21 Mar 2017 08:53:07 +0100
Subject: Make one more function robust in term_dnet.ml

Was actually forgotten in native-coq.
---
 tactics/term_dnet.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tactics/term_dnet.ml b/tactics/term_dnet.ml
index 901f366ec6..7567cfa304 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
 
-- 
cgit v1.2.3