diff options
| author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-04-21 10:01:24 +0200 |
|---|---|---|
| committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-04-21 10:01:24 +0200 |
| commit | 5038242bff601d79d2fad04795fb7f1b77738291 (patch) | |
| tree | e001627574dc8df5b79b3f45d0002f8368826962 /src/trace/smtMisc.ml | |
| parent | 745928a8f6200525d6ac5f6ebb0e395410fd5c36 (diff) | |
| parent | 13d2c8be2ffb84bc8d40064b223562832e5a5a7e (diff) | |
| download | smtcoq-5038242bff601d79d2fad04795fb7f1b77738291.tar.gz smtcoq-5038242bff601d79d2fad04795fb7f1b77738291.zip | |
Merge branch 'coq-8.10' of github.com:smtcoq/smtcoq into coq-8.11
Diffstat (limited to 'src/trace/smtMisc.ml')
| -rw-r--r-- | src/trace/smtMisc.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/trace/smtMisc.ml b/src/trace/smtMisc.ml index 607ebe7..d33a0ec 100644 --- a/src/trace/smtMisc.ml +++ b/src/trace/smtMisc.ml @@ -23,8 +23,8 @@ let mkInt i = (** Generic representation of shared object *) type 'a gen_hashed = { index : int; hval : 'a } -(** Functions over constr *) +(** Functions over constr *) let mklApp f args = Structures.mkApp (Lazy.force f, args) let string_of_name_def d n = try Structures.string_of_name n with | _ -> d |