diff options
| -rw-r--r-- | test-suite/success/SchemeEquality.v | 7 | ||||
| -rw-r--r-- | vernac/auto_ind_decl.ml | 2 |
2 files changed, 8 insertions, 1 deletions
diff --git a/test-suite/success/SchemeEquality.v b/test-suite/success/SchemeEquality.v new file mode 100644 index 0000000000..00e84bff38 --- /dev/null +++ b/test-suite/success/SchemeEquality.v @@ -0,0 +1,7 @@ +(* Examples of use of Scheme Equality *) + +Module A. +Definition N := nat. +Inductive list := nil | cons : N -> list -> list. +Scheme Equality for list. +End A. diff --git a/vernac/auto_ind_decl.ml b/vernac/auto_ind_decl.ml index ca1d36cb69..a9bf3f42c4 100644 --- a/vernac/auto_ind_decl.ml +++ b/vernac/auto_ind_decl.ml @@ -428,7 +428,7 @@ let do_replace_lb mode lb_scheme_key aavoid narg p q = Equality.replace p q ; apply app ; Auto.default_auto] end -(* used in the bool -> leib side *) +(* used in the bool -> leb side *) let do_replace_bl mode bl_scheme_key (ind,u as indu) aavoid narg lft rgt = let open EConstr in let avoid = Array.of_list aavoid in |