diff options
author | 2016-11-20 20:09:26 +0100 | |
---|---|---|
committer | 2017-02-14 17:30:34 +0100 | |
commit | d4b344acb23f19b089098b7788f37ea22bc07b81 (patch) | |
tree | 6dd26d747b259793ef6a24befd27e13234b19875 /plugins/cc/cctac.ml | |
parent | 2cd0648e003308a000f9f89c898bce4d15fc94a1 (diff) |
Eliminating parts of the right-hand side compatibility layer
Diffstat (limited to 'plugins/cc/cctac.ml')
-rw-r--r-- | plugins/cc/cctac.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/plugins/cc/cctac.ml b/plugins/cc/cctac.ml index a12ef00ec..6295e004e 100644 --- a/plugins/cc/cctac.ml +++ b/plugins/cc/cctac.ml @@ -87,6 +87,7 @@ let rec decompose_term env sigma t= (Appli (Symb (mkConst (Projection.constant p')), decompose_term env sigma c)) | _ -> let t = Termops.strip_outer_cast sigma (EConstr.of_constr t) in + let t = EConstr.Unsafe.to_constr t in if closed0 t then Symb t else raise Not_found (* decompose equality in members and type *) |