diff options
author | 2017-06-05 22:09:15 +0200 | |
---|---|---|
committer | 2017-06-05 22:09:15 +0200 | |
commit | 9a618ee0529f7153da1e10a8099a0b691bd13251 (patch) | |
tree | fea027f5f8a97b0f736d553bf4c21a1d62106253 /tactics | |
parent | b91f5d1adbd039809e31b5311d06b376829de1fc (diff) | |
parent | ccd8ab4721406991ad63c1e82a880a1f42bf065f (diff) |
Merge PR#590: A more explicit algebraic type for evars of kind MatchingVar + a flag suspectingly renamed in a clearer way
Diffstat (limited to 'tactics')
-rw-r--r-- | tactics/hipattern.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/hipattern.ml b/tactics/hipattern.ml index 2ba18ceb4..d15a0724d 100644 --- a/tactics/hipattern.ml +++ b/tactics/hipattern.ml @@ -260,7 +260,7 @@ let mkGProd id c1 c2 = CAst.make @@ let mkGArrow c1 c2 = CAst.make @@ GProd (Anonymous, Explicit, c1, c2) let mkGVar id = CAst.make @@ GVar (Id.of_string id) -let mkGPatVar id = CAst.make @@ GPatVar((false, Id.of_string id)) +let mkGPatVar id = CAst.make @@ GPatVar(Evar_kinds.FirstOrderPatVar (Id.of_string id)) let mkGRef r = CAst.make @@ GRef (Lazy.force r, None) let mkGAppRef r args = mkGApp (mkGRef r) args |