diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2017-08-29 14:35:12 +0200 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2017-08-29 14:35:12 +0200 |
commit | 8aa7de4ea2660fe370cedab07c1c5dcc19226c8c (patch) | |
tree | 0eb6a177c3a14d50173183b0188b5f15b6c425c5 /plugins/cc | |
parent | 75d70664156bf1715b4eb9933a684a344f43467d (diff) | |
parent | 7ba6bc4554a642f78f59b996f99d9d6ca2cc2678 (diff) |
Merge PR #805: Functional tactics
Diffstat (limited to 'plugins/cc')
-rw-r--r-- | plugins/cc/cctac.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/plugins/cc/cctac.ml b/plugins/cc/cctac.ml index 4934b0750..11d3a6d1f 100644 --- a/plugins/cc/cctac.ml +++ b/plugins/cc/cctac.ml @@ -231,7 +231,8 @@ let make_prb gls depth additionnal_terms = let build_projection intype (cstr:pconstructor) special default gls= let open Tacmach.New in let ci= (snd(fst cstr)) in - let sigma, body=Equality.build_selector (pf_env gls) (project gls) ci (mkRel 1) intype special default in + let sigma = project gls in + let body=Equality.build_selector (pf_env gls) sigma ci (mkRel 1) intype special default in let id=pf_get_new_id (Id.of_string "t") gls in sigma, mkLambda(Name id,intype,body) |