diff options
author | 2009-11-27 19:48:59 +0000 | |
---|---|---|
committer | 2009-11-27 19:48:59 +0000 | |
commit | 93a5f1e03e29e375be69a2361ffd6323f5300f86 (patch) | |
tree | 713b89aeac45df6b697d5b2a928c5808bb72d9fd /pretyping/termops.ml | |
parent | 82d94b8af248edcd14d737ec005d560ecf0ee9e0 (diff) |
Added support for definition of fixpoints using tactics.
Fixed some bugs in -beautify and robustness of {struct} clause.
Note: I tried to make the Automatic Introduction mode on by default
for version >= 8.3 but it is to complicated to adapt even in the
standard library.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12546 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/termops.ml')
-rw-r--r-- | pretyping/termops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/termops.ml b/pretyping/termops.ml index 81c740580..4de4bde2c 100644 --- a/pretyping/termops.ml +++ b/pretyping/termops.ml @@ -221,7 +221,7 @@ let push_named_rec_types (lna,typarray,_) env = let rec lookup_rel_id id sign = let rec lookrec = function | (n, (Anonymous,_,_)::l) -> lookrec (n+1,l) - | (n, (Name id',_,t)::l) -> if id' = id then (n,t) else lookrec (n+1,l) + | (n, (Name id',b,t)::l) -> if id' = id then (n,b,t) else lookrec (n+1,l) | (_, []) -> raise Not_found in lookrec (1,sign) |