diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-05-02 13:48:32 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-05-02 13:48:32 +0200 |
| commit | 63503b99c46b27009e85e5c0fa9588b7424a589d (patch) | |
| tree | cd109f724c343e85f888736293044b91240facba /vernac/auto_ind_decl.ml | |
| parent | 249b19897671b95ce0a3b8aba6b24005a315bb8c (diff) | |
| parent | d0252cac3167ef1e5cd26c1b9b40aea06d343413 (diff) | |
Merge PR#596: Fix for bug 5507. Mispelt de Bruijn.
Diffstat (limited to 'vernac/auto_ind_decl.ml')
| -rw-r--r-- | vernac/auto_ind_decl.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vernac/auto_ind_decl.ml b/vernac/auto_ind_decl.ml index b9c4c6cc5..c91dcc505 100644 --- a/vernac/auto_ind_decl.ml +++ b/vernac/auto_ind_decl.ml @@ -95,7 +95,7 @@ let destruct_on_using c id = let destruct_on_as c l = destruct false None c (Some (dl,l)) None -(* reconstruct the inductive with the correct deBruijn indexes *) +(* reconstruct the inductive with the correct de Bruijn indexes *) let mkFullInd (ind,u) n = let mib = Global.lookup_mind (fst ind) in let nparams = mib.mind_nparams in @@ -174,7 +174,7 @@ let build_beq_scheme mode kn = (* give a type A, this function tries to find the equality on A declared previously *) (* nlist = the number of args (A , B , ... ) - eqA = the deBruijn index of the first eq param + eqA = the de Bruijn index of the first eq param ndx = how much to translate due to the 2nd Case *) let compute_A_equality rel_list nlist eqA ndx t = |