diff options
author | 2007-10-03 12:31:45 +0000 | |
---|---|---|
committer | 2007-10-03 12:31:45 +0000 | |
commit | 1bead2a1ef23f2a281613093d7861815279e336d (patch) | |
tree | 9eaf1b967dbd270e8525094ae3bed20e1cf260ee /pretyping/termops.ml | |
parent | 056af27f37f8fb9a00548c88047a86061a624e8b (diff) |
Ajout de eelim, ecase, edestruct et einduction (expérimental).
Ajout de l'option with à (e)destruct et (e)induction.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10169 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/termops.ml')
-rw-r--r-- | pretyping/termops.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/termops.ml b/pretyping/termops.ml index f15ec5166..e52d7c82a 100644 --- a/pretyping/termops.ml +++ b/pretyping/termops.ml @@ -517,8 +517,8 @@ let free_rels m = let collect_metas c = let rec collrec acc c = match kind_of_term c with - | Meta mv -> mv::acc - | _ -> fold_constr collrec acc c + | Meta mv -> list_add_set mv acc + | _ -> fold_constr collrec acc c in List.rev (collrec [] c) |