diff options
| author | Maxime Dénès | 2017-08-31 12:41:58 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-08-31 12:41:58 +0200 |
| commit | f0b9359069de1223b9ffc8fedc557b87f919b24a (patch) | |
| tree | b8f6672b55415afef2ac4eea5789f6e283f7c54c /plugins | |
| parent | bdfcbceb57cb8d04fea02da39dee6b8e7f75ad29 (diff) | |
| parent | 4bbe2e4e2a9d5dea1a07f8cf0d7e3aeeed609201 (diff) | |
Merge PR #996: Fix BZ#5697: Congruence does not work with primitive projections
Diffstat (limited to 'plugins')
| -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 11d3a6d1f4..5a4c52456d 100644 --- a/plugins/cc/cctac.ml +++ b/plugins/cc/cctac.ml @@ -84,7 +84,8 @@ let rec decompose_term env sigma t= | Proj (p, c) -> let canon_const kn = Constant.make1 (Constant.canonical kn) in let p' = Projection.map canon_const p in - (Appli (Symb (Term.mkConst (Projection.constant p')), decompose_term env sigma c)) + let c = Retyping.expand_projection env sigma p' c [] in + decompose_term env sigma c | _ -> let t = Termops.strip_outer_cast sigma t in if closed0 sigma t then Symb (EConstr.to_constr sigma t) else raise Not_found |