diff options
| author | Hugo Herbelin | 2016-09-16 15:46:31 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2016-09-16 15:49:36 +0200 |
| commit | e6eef565639fb3840dd235eb675ece6e4dbeb082 (patch) | |
| tree | c222c842f7fad5f30bfc195962ee6984ee723fd8 /tactics | |
| parent | 1a1af4f2119715245b8d4488664a8b57f4bdce08 (diff) | |
Addressing OCaml compilation warnings.
One of them revealed a true bug.
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 6e24cc4698..7b52a9cee6 100644 --- a/tactics/hipattern.ml +++ b/tactics/hipattern.ml @@ -509,7 +509,7 @@ let coq_eqdec ~sum ~rev = let eqn = mkGAppRef coq_eq_ref (List.map mkGPatVar ["X1"; "X2"; "X3"]) in let args = [eqn; mkGAppRef coq_not_ref [eqn]] in let args = if rev then List.rev args else args in - mkPattern (mkGAppRef sum [eqn; mkGAppRef coq_not_ref [eqn]]) + mkPattern (mkGAppRef sum args) ) (** { ?X2 = ?X3 :> ?X1 } + { ~ ?X2 = ?X3 :> ?X1 } *) |