diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-10-20 16:12:39 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-10-20 16:28:52 +0200 |
commit | 2d747797c427818cdf85d0a0d701c7c9b0106b82 (patch) | |
tree | fe2a13b39348723dc7a4567198da190650cce2d4 /plugins/quote | |
parent | 4cc1714ac9b0944b6203c23af8c46145e7239ad3 (diff) |
Proofview.Goal.sigma returns an indexed evarmap.
Diffstat (limited to 'plugins/quote')
-rw-r--r-- | plugins/quote/quote.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/quote/quote.ml b/plugins/quote/quote.ml index 8d60b8ba2..04936cd83 100644 --- a/plugins/quote/quote.ml +++ b/plugins/quote/quote.ml @@ -228,7 +228,7 @@ let compute_ivs f cs gl = let (args3, body3) = decompose_lam body2 in let nargs3 = List.length args3 in let env = Proofview.Goal.env gl in - let sigma = Proofview.Goal.sigma gl in + let sigma = Tacmach.New.project gl in let is_conv = Reductionops.is_conv env sigma in begin match decomp_term body3 with | Case(_,p,c,lci) -> (* <p> Case c of c1 ... cn end *) |