diff options
| author | ppedrot | 2013-07-29 16:35:50 +0000 |
|---|---|---|
| committer | ppedrot | 2013-07-29 16:35:50 +0000 |
| commit | a512c03be02ff749abc2328b17fd7917d54aff27 (patch) | |
| tree | 281a9e846102b1d65d8a33cbe6191852dbdae7ea | |
| 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
| -rw-r--r-- | plugins/cc/ccalgo.ml | 3 | ||||
| -rw-r--r-- | test-suite/bugs/closed/shouldsucceed/3054.v | 10 |
2 files changed, 12 insertions, 1 deletions
diff --git a/plugins/cc/ccalgo.ml b/plugins/cc/ccalgo.ml index aba908d482..fbe31fe527 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 diff --git a/test-suite/bugs/closed/shouldsucceed/3054.v b/test-suite/bugs/closed/shouldsucceed/3054.v new file mode 100644 index 0000000000..936e58e197 --- /dev/null +++ b/test-suite/bugs/closed/shouldsucceed/3054.v @@ -0,0 +1,10 @@ +Section S. + +Let V := Type. + +Goal ~ true = false. +Proof. +congruence. +Qed. + +End S. |