diff options
author | Matthieu Sozeau <mattam@mattam.org> | 2014-06-23 13:01:31 +0200 |
---|---|---|
committer | Matthieu Sozeau <mattam@mattam.org> | 2014-06-23 13:10:02 +0200 |
commit | db37c9f3f32ae7a2abcd5e1a3f6239eddb5e1768 (patch) | |
tree | 6eaead7c3cd3b61ec54295a9037a4ef568b5dedb /plugins/fourier/fourierR.ml | |
parent | 0b1507b16da38e883d63802db7c013e2c09665fd (diff) |
Fix semantics of change p with c to typecheck c at each specific occurrence of p,
avoiding unwanted universe constraints in presence of universe polymorphic constants.
Fixing HoTT bugs # 36, 54 and 113.
Diffstat (limited to 'plugins/fourier/fourierR.ml')
-rw-r--r-- | plugins/fourier/fourierR.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/fourier/fourierR.ml b/plugins/fourier/fourierR.ml index 1f6ece602..7c134da7a 100644 --- a/plugins/fourier/fourierR.ml +++ b/plugins/fourier/fourierR.ml @@ -587,7 +587,7 @@ let rec fourier gl= else tac_zero_infeq_false gl (rational_to_fraction cres) in tac:=(tclTHENS (my_cut ineq) - [tclTHEN (change_in_concl None + [tclTHEN (change_concl (mkAppL [| get coq_not; ineq|] )) (tclTHEN (apply (if sres then get coq_Rnot_lt_lt |