diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-06-01 15:50:03 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-06-01 15:50:03 +0200 |
| commit | 52ff7a60c23ad31a7e0eb9b0bdb5b7c7c23162f3 (patch) | |
| tree | 1455de14a615ce50e91e50551d60e82e6f7ab70a /tactics/hipattern.ml | |
| parent | 3840dbd43398e5ff6ed7dbbc1cc6b19ec2eddb97 (diff) | |
| parent | 563d173d86cb8fbaccad70ee4c665aa60beb069c (diff) | |
Merge PR#696: Trunk+cleanup constr of global
Diffstat (limited to 'tactics/hipattern.ml')
| -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 35fbec5a6..2ba18ceb4 100644 --- a/tactics/hipattern.ml +++ b/tactics/hipattern.ml @@ -544,7 +544,7 @@ let match_eqdec sigma t = false,op_or,matches sigma (Lazy.force coq_eqdec_rev_pattern) t in match Id.Map.bindings subst with | [(_,typ);(_,c1);(_,c2)] -> - eqonleft, EConstr.of_constr (Universes.constr_of_global (Lazy.force op)), c1, c2, typ + eqonleft, Lazy.force op, c1, c2, typ | _ -> anomaly (Pp.str "Unexpected pattern") (* Patterns "~ ?" and "? -> False" *) |