diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-07-29 16:35:50 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-07-29 16:35:50 +0000 |
| commit | a512c03be02ff749abc2328b17fd7917d54aff27 (patch) | |
| tree | 281a9e846102b1d65d8a33cbe6191852dbdae7ea /plugins/cc/ccalgo.ml | |
| parent | 30f0ac30c21d53588b6ff6143c76560b3d1437d8 (diff) | |
Tentative fix for #3054: we refresh universes in a term generated
by congruence, as it seems to be done methodically on the remaining
of this plugin.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16642 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/cc/ccalgo.ml')
| -rw-r--r-- | plugins/cc/ccalgo.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/plugins/cc/ccalgo.ml b/plugins/cc/ccalgo.ml index aba908d48..fbe31fe52 100644 --- a/plugins/cc/ccalgo.ml +++ b/plugins/cc/ccalgo.ml @@ -427,7 +427,8 @@ let rec add_term state t= try Termhash.find uf.syms t with Not_found -> let b=next uf in - let typ = pf_type_of state.gls (constr_of_term t) in + let trm = Termops.refresh_universes (constr_of_term t) in + let typ = pf_type_of state.gls trm in let typ = canonize_name typ in let new_node= match t with |