From 326741e7602bb21e36d3872f95941347abcea612 Mon Sep 17 00:00:00 2001
From: sacerdot
Date: Mon, 25 Oct 2004 10:11:53 +0000
Subject: Missing check implemented (closes a bug from Bas Spitters).

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6253 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/setoid_replace.ml | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/tactics/setoid_replace.ml b/tactics/setoid_replace.ml
index 68c0ca3ba9..b3b29117b6 100644
--- a/tactics/setoid_replace.ml
+++ b/tactics/setoid_replace.ml
@@ -790,6 +790,10 @@ let new_morphism m signature id hook =
   let args_ty_quantifiers_rev,args,args_instance,output,output_instance =
    match signature with
       None ->
+       if args_ty = [] then
+        errorlabstrm "New Morphism"
+         (str "The term " ++ prterm m ++ str " has type " ++
+          prterm typeofm ++ str " that is not a product.") ;
        ignore (check_is_dependent 0 args_ty output) ;
        let args =
         List.map
-- 
cgit v1.2.3