diff options
| author | corbinea | 2006-09-26 08:43:22 +0000 |
|---|---|---|
| committer | corbinea | 2006-09-26 08:43:22 +0000 |
| commit | 5155de9ee4bd01127a57c36cebbd01c5d903d048 (patch) | |
| tree | 7a71a2bbc768e61007a7609cefcc840c8bbb9004 | |
| parent | df8ed3d1228d8df8317357ef80a7845b8d5e2edb (diff) | |
fixed error mesg in decl mode
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9177 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | tactics/decl_proof_instr.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tactics/decl_proof_instr.ml b/tactics/decl_proof_instr.ml index 26a2bd48e9..e7acd6d646 100644 --- a/tactics/decl_proof_instr.ml +++ b/tactics/decl_proof_instr.ml @@ -1001,7 +1001,9 @@ let rec add_branch env ((id,_) as cpl) pats tree= br.(pred cnum) in Split (ids,ind,br) | Split (ids,ind0,br0) -> - assert (ind=ind0); + if (ind <> ind0) then error + (* this can happen with coercions *) + "Case pattern belongs to wrong inductive type"; let br=Array.copy br0 in let ca = constructor_arities env ind in let _= br.(pred cnum)<- |