diff options
| author |  sacerdot <sacerdot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-10-25 10:11:53 +0000 |
|---|---|---|
| committer | sacerdot <sacerdot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-10-25 10:11:53 +0000 |
| commit | 326741e7602bb21e36d3872f95941347abcea612 (patch) | |
| tree | f31cdc4f3e545bfe95fdf903e66916ce1fb00e24 | |
| parent | 2bf4dc3b02f20e2fcc68fa2b0c80ae8d00cef18e (diff) | |
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
| -rw-r--r-- | tactics/setoid_replace.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tactics/setoid_replace.ml b/tactics/setoid_replace.ml index 68c0ca3ba..b3b29117b 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 |