diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-07-01 10:15:38 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-07-01 10:15:38 +0000 |
commit | 7da855f0e3ed56aa9ad9149f6ef95be11f7ec5d2 (patch) | |
tree | 0f542f00fc75403d95f0e8799630a54c0ee7b14f /kernel/typeops.ml | |
parent | 460c3399fd877bf5ca4a7c8029c2dc35db86da8b (diff) |
Extension de find_inductive aux co-inductifs et renommage en find_rectype
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@542 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/typeops.ml')
-rw-r--r-- | kernel/typeops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/typeops.ml b/kernel/typeops.ml index 7edb8680f..720061fa5 100644 --- a/kernel/typeops.ml +++ b/kernel/typeops.ml @@ -209,7 +209,7 @@ let check_branches_message env sigma (c,ct) (explft,lft) = let type_of_case env sigma ci pj cj lfj = let lft = Array.map (fun j -> body_of_type j.uj_type) lfj in let indspec = - try find_inductive env sigma (body_of_type cj.uj_type) + try find_rectype env sigma (body_of_type cj.uj_type) with Induc -> error_case_not_inductive CCI env cj.uj_val (body_of_type cj.uj_type) in let (bty,rslty) = |