diff options
| author | Hugo Herbelin | 2018-09-20 12:59:28 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2018-09-27 13:28:36 +0200 |
| commit | f30996a89a31a1a54ab481f752e5febb8a8ac0ed (patch) | |
| tree | f6e0bfd3cabb85b486fe68a417ab7c2d3033a4b1 | |
| parent | 82a3fb5d5c0d0c5660effec59f3800ee5e8a125d (diff) | |
Fixing a typo in a comment.
| -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 |