diff options
| author | bgregoir | 2006-07-22 17:42:45 +0000 |
|---|---|---|
| committer | bgregoir | 2006-07-22 17:42:45 +0000 |
| commit | fff07f8260867740f1f8d8b09bd26baa5f99e5c6 (patch) | |
| tree | c222eddef1770307a3d097faa8d928228ef61629 /kernel/inductive.ml | |
| parent | 66b674a1d41d9349f4c64543eda5ef005617e3a0 (diff) | |
- Ajout d'un cast vm dans la syntaxe : x <: t
Part contre ces cas sont detruis dans les "Definition"
(pas dans les "Lemma") je comprends pas ou ils sont enlev'e...
Si une id'ee ...
- Correction d'un bug dans vm_compute plusieurs fois signal'e par Roland.
- Meilleur compilation des coinductifs, on utilise maintenant vraimment
du lazy.
- Enfin un peu plus de doc dans le code de la vm.
Benjamin
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9058 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/inductive.ml')
| -rw-r--r-- | kernel/inductive.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/inductive.ml b/kernel/inductive.ml index a6a605d2d2..2e2bcafcee 100644 --- a/kernel/inductive.ml +++ b/kernel/inductive.ml @@ -30,8 +30,8 @@ let lookup_mind_specif env (kn,tyi) = let find_rectype env c = let (t, l) = decompose_app (whd_betadeltaiota env c) in match kind_of_term t with - | Ind ind -> (ind, l) - | _ -> raise Not_found + | Ind ind -> (ind, l) + | _ -> raise Not_found let find_inductive env c = let (t, l) = decompose_app (whd_betadeltaiota env c) in |