diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-05-04 16:58:33 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-05-04 16:58:33 +0000 |
| commit | 1c6747af716224b092b0f197772bc6bcc186293b (patch) | |
| tree | e8fe986a8e46435f893d891e7e1ee05e6e83b550 /tactics | |
| parent | 783bdffba901a29027878f41e10b6bcfe406100f (diff) | |
Renommage try_mutind_of en find_inductive (on fait ce qu'on peut !)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@416 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/equality.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index 02944443a..5ecf3a39a 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -450,7 +450,7 @@ let discriminable env sigma t1 t2 = let descend_then sigma env head dirn = let headj = unsafe_machine env sigma head in let indspec = - try try_mutind_of env sigma headj.uj_type + try find_inductive env sigma headj.uj_type with Not_found -> assert false in let construct = mkMutConstruct (ith_constructor_of_inductive indspec.mind dirn) in @@ -499,7 +499,7 @@ let descend_then sigma env head dirn = let construct_discriminator sigma env dirn c sort = let indspec = - try try_mutind_of env sigma (type_of env sigma c) + try find_inductive env sigma (type_of env sigma c) with Not_found -> (* one can find Rel(k) in case of dependent constructors like T := c : (A:Set)A->T and a discrimination @@ -537,7 +537,7 @@ let rec build_discriminator sigma env dirn c sort = function | (MutConstruct(sp,cnum),argnum)::l -> let cty = type_of env sigma c in let indspec = - try try_mutind_of env sigma cty with Not_found -> assert false in + try find_inductive env sigma cty with Not_found -> assert false in let _,arsort = get_arity env sigma indspec in let nparams = indspec.Inductive.nparams in let (cnum_nlams,cnum_env,kont) = descend_then sigma env c cnum in |