diff options
| author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-05-05 16:17:17 +0200 |
|---|---|---|
| committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-05-05 16:17:17 +0200 |
| commit | 449ca2340377200120343eeace3c056ed099e7bf (patch) | |
| tree | 6e3f0fb5c55e9e9cbcbd2af05f32ee0775c25b7e /src/trace | |
| parent | 8b7c8b2c3350ff349a91d6e8f0902bc47f3d494e (diff) | |
| parent | 9d45fd745ecfd02cb21b3f0e93566b6ee864db38 (diff) | |
| download | smtcoq-449ca2340377200120343eeace3c056ed099e7bf.tar.gz smtcoq-449ca2340377200120343eeace3c056ed099e7bf.zip | |
Merge branch 'coq-8.10' of github.com:smtcoq/smtcoq into coq-8.11
Diffstat (limited to 'src/trace')
| -rw-r--r-- | src/trace/smtAtom.ml | 8 | ||||
| -rw-r--r-- | src/trace/smtBtype.ml | 2 |
2 files changed, 8 insertions, 2 deletions
diff --git a/src/trace/smtAtom.ml b/src/trace/smtAtom.ml index ff6db6a..f0a907a 100644 --- a/src/trace/smtAtom.ml +++ b/src/trace/smtAtom.ml @@ -1338,10 +1338,16 @@ module Atom = | _ -> assert false and mk_unknown c args ty = + (* Collecting types and CompDec allows to reify applied + polymorphic functions *) let rec collect_types = function | [] -> ([],[]) | x::xs as l -> - if Constr.iskind (Structures.retyping_get_type_of env sigma x) then + let ty = Structures.retyping_get_type_of env sigma x in + if Constr.iskind ty || + let c, _ = Structures.decompose_app ty in + Structures.eq_constr c (Lazy.force cCompDec) + then let (l1, l2) = collect_types xs in (x::l1, l2) else diff --git a/src/trace/smtBtype.ml b/src/trace/smtBtype.ml index 94339f6..1e05dc4 100644 --- a/src/trace/smtBtype.ml +++ b/src/trace/smtBtype.ml @@ -13,7 +13,7 @@ open SmtMisc open CoqTerms -(** Syntaxified version of Coq type *) +(** Reified version of Coq type *) type uninterpreted_type = (* Uninterpreted type for which a CompDec is already known |