==================== FINAL INTERFACE ==================== 2017-05-02 18:36:54.228714 UTC interface liquid-fixpoint-0.6.0.1-6TLfofWrTFvFP1QJmA2Rhf:Language.Fixpoint.Smt.Interface 8002 interface hash: cdc74ec69b66b2a76a4e941f0a981436 ABI hash: f538f0ac51ee819dc838b6422164f768 export-list hash: 7bacdb37e2c46633ad6ef325fbbcf3f3 orphan hash: 693e9af84d3dfcc71e640e005bdc5e2e flag hash: b01b75c4ad85b4e227ace0573f3c921e sig of: Nothing used TH splices: False where exports: Language.Fixpoint.Smt.Interface.checkValid Language.Fixpoint.Smt.Interface.checkValid' Language.Fixpoint.Smt.Interface.checkValidWithContext Language.Fixpoint.Smt.Interface.checkValids Language.Fixpoint.Smt.Interface.cleanupContext Language.Fixpoint.Smt.Interface.command Language.Fixpoint.Smt.Interface.makeContext Language.Fixpoint.Smt.Interface.makeContextNoLog Language.Fixpoint.Smt.Interface.makeContextWithSEnv Language.Fixpoint.Smt.Interface.makeSmtContext Language.Fixpoint.Smt.Interface.smtAssert Language.Fixpoint.Smt.Interface.smtAssertAxiom Language.Fixpoint.Smt.Interface.smtBracket Language.Fixpoint.Smt.Interface.smtCheckSat Language.Fixpoint.Smt.Interface.smtCheckUnsat Language.Fixpoint.Smt.Interface.smtDecl Language.Fixpoint.Smt.Interface.smtDecls Language.Fixpoint.Smt.Interface.smtDistinct Language.Fixpoint.Smt.Interface.smtPop Language.Fixpoint.Smt.Interface.smtPush Language.Fixpoint.Smt.Interface.smtWrite Language.Fixpoint.Smt.Types.Command{Language.Fixpoint.Smt.Types.Assert Language.Fixpoint.Smt.Types.AssertAxiom Language.Fixpoint.Smt.Types.CMany Language.Fixpoint.Smt.Types.CheckSat Language.Fixpoint.Smt.Types.Declare Language.Fixpoint.Smt.Types.Define Language.Fixpoint.Smt.Types.Distinct Language.Fixpoint.Smt.Types.GetValue Language.Fixpoint.Smt.Types.Pop Language.Fixpoint.Smt.Types.Push} Language.Fixpoint.Smt.Types.Context{Language.Fixpoint.Smt.Types.Ctx ctxAeq ctxBeq ctxCin ctxCout ctxExt ctxLog ctxNorm ctxPid ctxSmtEnv ctxVerbose} Language.Fixpoint.Smt.Types.Response{Language.Fixpoint.Smt.Types.Error Language.Fixpoint.Smt.Types.Ok Language.Fixpoint.Smt.Types.Sat Language.Fixpoint.Smt.Types.Unknown Language.Fixpoint.Smt.Types.Unsat Language.Fixpoint.Smt.Types.Values} Language.Fixpoint.Smt.Types.SMTLIB2{Language.Fixpoint.Smt.Types.smt2} module dependencies: Language.Fixpoint.Misc Language.Fixpoint.Smt.Serialize Language.Fixpoint.Smt.Theories Language.Fixpoint.Smt.Types Language.Fixpoint.Types Language.Fixpoint.Types.Config Language.Fixpoint.Types.Constraints Language.Fixpoint.Types.Environments Language.Fixpoint.Types.Errors Language.Fixpoint.Types.Names Language.Fixpoint.Types.PrettyPrint Language.Fixpoint.Types.Refinements Language.Fixpoint.Types.Sorts Language.Fixpoint.Types.Spans Language.Fixpoint.Types.Substitutions Language.Fixpoint.Types.Triggers Language.Fixpoint.Types.Utils Language.Fixpoint.Utils.Files package dependencies: ansi-terminal-0.6.2.3@ansi-terminal-0.6.2.3-4HPxin1iv6RAndS8lH3nzo array-0.5.1.1@array-0.5.1.1 async-2.1.1@async-2.1.1-4n6HEMPJR2eJK0JpvCfuPK attoparsec-0.13.1.0@attoparsec-0.13.1.0-KwckfZOQnr04d9ofoJ9Hh4 base-4.9.1.0 binary-0.8.3.0@binary-0.8.3.0 boxes-0.1.4@boxes-0.1.4-6YjYnmNJvyiGUQgGc0o5m bytestring-0.10.8.1@bytestring-0.10.8.1 cereal-0.5.4.0@cereal-0.5.4.0-BsAGxfp8yAs3CiRo2E875e cmdargs-0.10.17@cmdargs-0.10.17-IWa8ygdJhnJBShkQXN8V9I containers-0.5.7.1@containers-0.5.7.1 deepseq-1.4.2.0@deepseq-1.4.2.0 directory-1.3.0.0@directory-1.3.0.0 double-conversion-2.0.2.0@double-conversion-2.0.2.0-FB9lbzCS3eNEibeP1aq5Xr filepath-1.4.1.1@filepath-1.4.1.1 ghc-prim-0.5.0.0 hashable-1.2.6.0@hashable-1.2.6.0-3EXxoqeEgbfAKr6aGkye6x integer-gmp-1.0.0.1 integer-logarithms-1.0.1@integer-logarithms-1.0.1-IEHCuEd5sG4JjSjlx7m5JF intern-0.9.1.4@intern-0.9.1.4-L6DPHi71I8uFQt9sdHfbWx located-base-0.1.1.0@located-base-0.1.1.0-HUdCVrbsrYd4xCcb0zuvg3 parsec-3.1.11@parsec-3.1.11-113irVHGgd88sRnywByDNw pretty-1.1.3.3@pretty-1.1.3.3 primitive-0.6.1.0@primitive-0.6.1.0-6AbSTw9JXz141LE5p6LGH process-1.4.3.0@process-1.4.3.0 scientific-0.3.4.11@scientific-0.3.4.11-KV39KlwSGDKD4auxhPQ5mB split-0.2.3.1@split-0.2.3.1-FWyXC6nhV0H3AfM8IzrEFk stm-2.4.4.1@stm-2.4.4.1-JQn4hNPyYjP5m9AcbI88Ve syb-0.6@syb-0.6-IcoSwlPi2Nx4zSqMmorFPS text-1.2.2.1@text-1.2.2.1-Ji7hMs2U4BkBwavd4taEVR text-format-0.3.1.1@text-format-0.3.1.1-IdImYtolSdoC3n5Y2CJ8aG time-1.6.0.1@time-1.6.0.1 transformers-0.5.2.0@transformers-0.5.2.0 unix-2.7.2.1@unix-2.7.2.1 unordered-containers-0.2.8.0@unordered-containers-0.2.8.0-1XEErQCPPPc2SEtcHHNx9o vector-0.11.0.0@vector-0.11.0.0-LMwQhhnXj8U3T5Bm1JFxG orphans: attoparsec-0.13.1.0@attoparsec-0.13.1.0-KwckfZOQnr04d9ofoJ9Hh4:Data.Attoparsec.Text.Internal base-4.9.1.0:GHC.Base base-4.9.1.0:GHC.Float binary-0.8.3.0@binary-0.8.3.0:Data.Binary.Generic bytestring-0.10.8.1@bytestring-0.10.8.1:Data.ByteString.Builder cmdargs-0.10.17@cmdargs-0.10.17-IWa8ygdJhnJBShkQXN8V9I:System.Console.CmdArgs.Explicit.Help hashable-1.2.6.0@hashable-1.2.6.0-3EXxoqeEgbfAKr6aGkye6x:Data.Hashable.Generic liquid-fixpoint-0.6.0.1-6TLfofWrTFvFP1QJmA2Rhf:Language.Fixpoint.Smt.Serialize liquid-fixpoint-0.6.0.1-6TLfofWrTFvFP1QJmA2Rhf:Language.Fixpoint.Types.Constraints liquid-fixpoint-0.6.0.1-6TLfofWrTFvFP1QJmA2Rhf:Language.Fixpoint.Types.Environments liquid-fixpoint-0.6.0.1-6TLfofWrTFvFP1QJmA2Rhf:Language.Fixpoint.Types.Errors liquid-fixpoint-0.6.0.1-6TLfofWrTFvFP1QJmA2Rhf:Language.Fixpoint.Types.Names liquid-fixpoint-0.6.0.1-6TLfofWrTFvFP1QJmA2Rhf:Language.Fixpoint.Types.Refinements liquid-fixpoint-0.6.0.1-6TLfofWrTFvFP1QJmA2Rhf:Language.Fixpoint.Types.Spans liquid-fixpoint-0.6.0.1-6TLfofWrTFvFP1QJmA2Rhf:Language.Fixpoint.Types.Substitutions stm-2.4.4.1@stm-2.4.4.1-JQn4hNPyYjP5m9AcbI88Ve:Control.Monad.STM syb-0.6@syb-0.6-IcoSwlPi2Nx4zSqMmorFPS:Data.Generics.Instances text-1.2.2.1@text-1.2.2.1-Ji7hMs2U4BkBwavd4taEVR:Data.Text text-1.2.2.1@text-1.2.2.1-Ji7hMs2U4BkBwavd4taEVR:Data.Text.Lazy text-1.2.2.1@text-1.2.2.1-Ji7hMs2U4BkBwavd4taEVR:Data.Text.Show time-1.6.0.1@time-1.6.0.1:Data.Time.Calendar.Gregorian time-1.6.0.1@time-1.6.0.1:Data.Time.Format.Parse time-1.6.0.1@time-1.6.0.1:Data.Time.LocalTime.LocalTime transformers-0.5.2.0@transformers-0.5.2.0:Control.Monad.Trans.Error vector-0.11.0.0@vector-0.11.0.0-LMwQhhnXj8U3T5Bm1JFxG:Data.Vector.Fusion.Bundle family instance modules: attoparsec-0.13.1.0@attoparsec-0.13.1.0-KwckfZOQnr04d9ofoJ9Hh4:Data.Attoparsec.Internal.Types base-4.9.1.0:Control.Applicative base-4.9.1.0:Data.Complex base-4.9.1.0:Data.Either base-4.9.1.0:Data.Functor.Compose base-4.9.1.0:Data.Functor.Const base-4.9.1.0:Data.Functor.Identity base-4.9.1.0:Data.Functor.Product base-4.9.1.0:Data.Functor.Sum base-4.9.1.0:Data.List.NonEmpty base-4.9.1.0:Data.Monoid base-4.9.1.0:Data.Semigroup base-4.9.1.0:Data.Type.Equality base-4.9.1.0:Data.Version base-4.9.1.0:Data.Void base-4.9.1.0:GHC.Exts base-4.9.1.0:GHC.Generics base-4.9.1.0:GHC.IO.Exception base-4.9.1.0:GHC.TypeLits containers-0.5.7.1@containers-0.5.7.1:Data.IntMap.Base containers-0.5.7.1@containers-0.5.7.1:Data.IntSet.Base containers-0.5.7.1@containers-0.5.7.1:Data.Map.Base containers-0.5.7.1@containers-0.5.7.1:Data.Sequence containers-0.5.7.1@containers-0.5.7.1:Data.Set.Base intern-0.9.1.4@intern-0.9.1.4-L6DPHi71I8uFQt9sdHfbWx:Data.Interned.Internal.Text liquid-fixpoint-0.6.0.1-6TLfofWrTFvFP1QJmA2Rhf:Language.Fixpoint.Types.Config liquid-fixpoint-0.6.0.1-6TLfofWrTFvFP1QJmA2Rhf:Language.Fixpoint.Types.Constraints liquid-fixpoint-0.6.0.1-6TLfofWrTFvFP1QJmA2Rhf:Language.Fixpoint.Types.Environments liquid-fixpoint-0.6.0.1-6TLfofWrTFvFP1QJmA2Rhf:Language.Fixpoint.Types.Errors liquid-fixpoint-0.6.0.1-6TLfofWrTFvFP1QJmA2Rhf:Language.Fixpoint.Types.Names liquid-fixpoint-0.6.0.1-6TLfofWrTFvFP1QJmA2Rhf:Language.Fixpoint.Types.Refinements liquid-fixpoint-0.6.0.1-6TLfofWrTFvFP1QJmA2Rhf:Language.Fixpoint.Types.Sorts liquid-fixpoint-0.6.0.1-6TLfofWrTFvFP1QJmA2Rhf:Language.Fixpoint.Types.Spans liquid-fixpoint-0.6.0.1-6TLfofWrTFvFP1QJmA2Rhf:Language.Fixpoint.Types.Triggers pretty-1.1.3.3@pretty-1.1.3.3:Text.PrettyPrint.Annotated.HughesPJ pretty-1.1.3.3@pretty-1.1.3.3:Text.PrettyPrint.HughesPJ primitive-0.6.1.0@primitive-0.6.1.0-6AbSTw9JXz141LE5p6LGH:Control.Monad.Primitive text-1.2.2.1@text-1.2.2.1-Ji7hMs2U4BkBwavd4taEVR:Data.Text text-1.2.2.1@text-1.2.2.1-Ji7hMs2U4BkBwavd4taEVR:Data.Text.Lazy unordered-containers-0.2.8.0@unordered-containers-0.2.8.0-1XEErQCPPPc2SEtcHHNx9o:Data.HashMap.Base unordered-containers-0.2.8.0@unordered-containers-0.2.8.0-1XEErQCPPPc2SEtcHHNx9o:Data.HashSet vector-0.11.0.0@vector-0.11.0.0-LMwQhhnXj8U3T5Bm1JFxG:Data.Vector import -/ attoparsec-0.13.1.0@attoparsec-0.13.1.0-KwckfZOQnr04d9ofoJ9Hh4:Data.Attoparsec.Combinator 1764cd47daec5ed4c8be1c99c697f14b import -/ attoparsec-0.13.1.0@attoparsec-0.13.1.0-KwckfZOQnr04d9ofoJ9Hh4:Data.Attoparsec.Internal.Types 368d7f49be51b9833423e14d1c6dcb38 import -/ attoparsec-0.13.1.0@attoparsec-0.13.1.0-KwckfZOQnr04d9ofoJ9Hh4:Data.Attoparsec.Text e144cce9b5f5d7c555243f1a32e7a3e7 import -/ attoparsec-0.13.1.0@attoparsec-0.13.1.0-KwckfZOQnr04d9ofoJ9Hh4:Data.Attoparsec.Text.Internal 6027bfcf6269b291191870ec2aa4041d import -/ base-4.9.1.0:Control.Applicative 32430a90492e727f4bd80db71c28600c import -/ base-4.9.1.0:Control.Exception a76dd9666251322fe34dbcca3a0817bf import -/ base-4.9.1.0:Control.Exception.Base 1e106916283856f4d9caeddab92cd861 import -/ base-4.9.1.0:Control.Monad a6784c5dab0d75c63dabec5a37843f98 import -/ base-4.9.1.0:Data.Char 01433d23661edb6e5ef1536ef1e6774c import -/ base-4.9.1.0:Data.Either 20b09ef8d0a5b74fdec011c40c1587f5 import -/ base-4.9.1.0:Data.Foldable 3e0b6967a1da89945d0e2d47266337a2 import -/ base-4.9.1.0:Data.Functor 5ab1dc703df5b482e77efb697833ca3c import -/ base-4.9.1.0:Data.Maybe d876c4ffe4b3c43755a781e8ad860d88 import -/ base-4.9.1.0:Data.Monoid 51cc9cd8c130d49ba96b7c2c2406022b import -/ base-4.9.1.0:Data.Traversable 556020d7cf3c4a34a774600512918a37 import -/ base-4.9.1.0:Data.Tuple 7dc4bbb45d2e69c991ffac438beeca11 import -/ base-4.9.1.0:GHC.Base c4231c43c07e46080a26bf94094c7aa1 import -/ base-4.9.1.0:GHC.IO eb504c57b397cf133849f8586f15dafb import -/ base-4.9.1.0:GHC.IO.Exception 5064be4c355632a1d1c4f2322f56ac52 import -/ base-4.9.1.0:GHC.IO.Handle ba98a5b34d78cbf48b41fe58a3735c69 import -/ base-4.9.1.0:GHC.IO.Handle.FD bf0291e0f2b6c0eca5446f986999f1cc import -/ base-4.9.1.0:GHC.IO.Handle.Types 17aa0e2ab137800e3a31992d780c071f import -/ base-4.9.1.0:GHC.IO.IOMode 2f5782f93b12a0d860d6d661b9fb405c import -/ base-4.9.1.0:GHC.List ab8c4e523e6c479c549d3bcd5fc4a439 import -/ base-4.9.1.0:GHC.Show a027f5ac24879eaba752f44aa90fe511 import -/ base-4.9.1.0:GHC.Unicode a175ecf20bf1272d9ae31337e7da43ab import -/ base-4.9.1.0:Prelude 22dd289b8469a8fa8dc81cab7b237771 import -/ base-4.9.1.0:System.Exit 068ba078eb20417d7af66db8b8ab4db1 import -/ base-4.9.1.0:System.IO c9de64c5f5407c4cf1c52500c4d15200 import -/ cmdargs-0.10.17@cmdargs-0.10.17-IWa8ygdJhnJBShkQXN8V9I:System.Console.CmdArgs.Verbosity 7bf06f3afbdc9ccb1d15f1e14eae9da1 import -/ directory-1.3.0.0@directory-1.3.0.0:System.Directory 23e4e3d52f91c33b21f0667cd90aa164 import -/ filepath-1.4.1.1@filepath-1.4.1.1:System.FilePath a3d1d13ac7dd86705b5dfaf58a5c0b9e import -/ filepath-1.4.1.1@filepath-1.4.1.1:System.FilePath.Posix 6a5e3ee74184fdcc5da09a368e7c40f5 import -/ ghc-prim-0.5.0.0:GHC.Classes 0bdf3d057a415ec1b84a7b1994efbe47 import -/ ghc-prim-0.5.0.0:GHC.Types 89f8de4f08018c9177c98d979eae0e45 import -/ Language.Fixpoint.Misc 268edc2be2657e56d9ac2e0e5f861c66 exports: 0d4209a369f77ae55113ca41b56281c2 errorstar e13c48ac8d5f72547a0d41e4f1437551 import -/ Language.Fixpoint.Smt.Serialize 753468bc986eaaa10f11b5a05ccb4467 exports: 68b0cd2d88b0c28a403c19637edecd1c import -/ Language.Fixpoint.Smt.Theories 7338304cade2229c481eb3a53a263a4e exports: 97d4c588471a0a34e2bb2d91dfd92151 preamble 4aa7381e4b490d3fa563d993d6b01e60 theorySEnv 4f5f43c60510bc359a6de8317e6d6440 theorySymbols 75887ec43b78ed06cb3bd297eb02dc2d import -/ Language.Fixpoint.Smt.Types c32f4046d289f1736e5eb4fe5760ced2 exports: c7b078aa1030bf306e2bdc4ea4060c3a Assert 5ff5319bed1e970965e6815bbb5638d3 AssertAxiom 5ccd84605f9b8fc89223b0ed45d09492 CMany e2b81d19d89419c171c8a50357f782bf CheckSat e7bdaff0dc145a7796fafe6b1986504b Command d954fc9c60b7cf5bf86d56c4438f43e0 Context a36b02023fe13e7352f35df5b8aec574 Ctx 14f2a9a426b1e6d21e82c95a6b9e542a Declare ff6650ed1338b6061d17d251def29d6a Define f25b901222e1f2d3e64b5152bd22c0f7 Distinct 990e387022ab845990b97b443e6f755b Error 9dfb376f1162c71819faa77d7dae160e GetValue cf9acb0cd3b55eaad92515f541acb8e2 Ok 53153417284930680cfded42cea2a194 Pop 00298a45a8561f3e28fb9ba24d1afab0 Push f3140690ded9e35c309627152e4edd2c Raw 4dbb3c18cb680bd6d90733e0ee1bfc0d Response 69caaef2199611670928811187028369 SMTEnv c9661b8f1a8ff4bab1fc6adec4f11d6d SMTLIB2 18d805a1adc40f78e756a6fe5af3ce05 Sat 9bffb30edede3a631ba32f8ee8cb1111 Unknown 5054532f70c6fa00021ea0cad5658d73 Unsat 6ac6413b4a8ee8da5b16200f4da140da Values 85ec52cf15c1d915af66adf9a64ade25 ctxAeq cc99bad7ce2e4be67d00913a582c15be ctxBeq b5f271c2702e61d383382a64cd92e3f3 ctxCin 2f5f2c93743fea0442c26b266392baf4 ctxCout c5ba788373464ca70406373e626a5341 ctxExt e9278b3fbe47a565d5b765b8966fb6b0 ctxLog fd00c0782849ba8580be04cf11c79c7a ctxNorm 4c59189e377760a8296bac6fae65ae47 ctxPid dd3cb33e296e59b5de6391e17bb7cf55 ctxSmtEnv e42736739b87fabca322a2144921f5ec ctxVerbose b63b197944a17dc615100922efd41660 runSmt2 1f64e1e86597d78d7dd04cdecc1d781f smt2 00a3c2cb4c5bbd81c58916566c403d7f tsInterp 24ddef8198d173b9c354715d113d90d3 tsSort e17bd4dd079da6f0eec82165ce44ff0c import -/ Language.Fixpoint.Types 09d1039f1e0058408506d58eee0982ca exports: 91181ff2c29316a0420a9031c7b2d4bd import -/ Language.Fixpoint.Types.Config 163393aa566fa4479116d419651371d6 exports: 87e69df825248b6123b5720d7ef71a71 Config 0a1d3ab6981cc6a61194de16bb9f26fb Cvc4 3d87f0ba7e80596691948760ddd2c6ce Mathsat 5500c2ba8ccf5fa188ac7bdeb9817286 SMTSolver 33b67c63a8c6c21d896e5eaee4e0bea5 Z3 8be9ca34cb31e999e4c02f330a4fc720 alphaEquivalence 057db3d16fd9c58ffe26e9183c7f81c9 betaEquivalence 019a658d1ccc1df8daf79647ec6e823f extensionality 3499a69969d02bc198e5cdfc511af186 normalForm 9f97e94251b5c645df085fb5e7a7cde3 solver ad1f42cd69401df7fb80f31829c4b15f stringTheory f42571dd5abc6b20f59b5eda31bd9459 import -/ Language.Fixpoint.Types.Environments 39a7a5317852adad63623f9a402cc5a6 fromListSEnv 789a0bbdc42dd0135ea2d09892ac21d3 import -/ Language.Fixpoint.Types.Errors d4d50638f5ff32bb3bc70ba4c9bb3ab8 exports: c4470aa04bce431d939b34bcb1af3229 die a892c3bd643380084ab25f8b09c20b83 err a90e823f0e6047342911d3113f83b3d9 import -/ Language.Fixpoint.Types.Names e10fad5e5b8ff170c535ac390b7d6df1 Symbol 48f09ac5554b5659507cdde0ca23f8ac symbol bad58e97c0b3a81e2dad9c913729970a import -/ Language.Fixpoint.Types.Refinements 14ae5428586db5cedff3d8f72f8648b7 Expr 7fb70fb47d0302cfb4b9c12c86306141 PNot c4eeca122c5c0a43c77041a865069326 pAnd 2d7e49d5bd88e54fdd84a02dbca76a98 import -/ Language.Fixpoint.Types.Sorts b5018989427724a1db790152ee79cb6f Sort 402c177fc699f05dd97dbf4130d9008b functionSort 11d97370b121a8ef0a4def7d986212ac import -/ Language.Fixpoint.Types.Spans 914694383547ac6e05961eac2448df52 dummySpan 0a9a460d1a0c849b90ebbbabded90215 import -/ Language.Fixpoint.Types.Triggers 78e706fc94d14f2234498b868981d807 Triggered 0ede6587ce135bd08622314fe97bbc85 import -/ Language.Fixpoint.Utils.Files 00ca7654ce931c19e6d232e8db43f586 exports: fa819c1ab65a8419ad74769e75b8866f Smt2 36fef96be32180e7cff931b2ab484820 extFileName 06c632f2fccc040aa84e2dc062afc041 import -/ pretty-1.1.3.3@pretty-1.1.3.3:Text.PrettyPrint.HughesPJ 0c3d66734497c26d70ab123829dd1cb4 import -/ process-1.4.3.0@process-1.4.3.0:System.Process 1ee59b956b7cad68338d3f6ab3e772ed import -/ text-1.2.2.1@text-1.2.2.1-Ji7hMs2U4BkBwavd4taEVR:Data.Text 02cbbc20bdd508fabc38de38896bbae0 import -/ text-1.2.2.1@text-1.2.2.1-Ji7hMs2U4BkBwavd4taEVR:Data.Text.IO 2bfd8ce3cdf32aefc3878353659c404f import -/ text-1.2.2.1@text-1.2.2.1-Ji7hMs2U4BkBwavd4taEVR:Data.Text.Internal a2f6f66c5bb1247458d9fa25257ab188 import -/ text-1.2.2.1@text-1.2.2.1-Ji7hMs2U4BkBwavd4taEVR:Data.Text.Internal.Builder cac246c99e360c04405d7258721e6f9e import -/ text-1.2.2.1@text-1.2.2.1-Ji7hMs2U4BkBwavd4taEVR:Data.Text.Internal.Lazy 1efb735dc8fcde46f3a3e88605ea2067 import -/ text-1.2.2.1@text-1.2.2.1-Ji7hMs2U4BkBwavd4taEVR:Data.Text.Lazy 547b2cb8d74b3b03ee583c506a59422a import -/ text-1.2.2.1@text-1.2.2.1-Ji7hMs2U4BkBwavd4taEVR:Data.Text.Lazy.Builder 12f4026fc6128435b48f92178aec364b import -/ text-1.2.2.1@text-1.2.2.1-Ji7hMs2U4BkBwavd4taEVR:Data.Text.Lazy.IO 79324ab05ecca05433976cd7d9d58eac import -/ text-format-0.3.1.1@text-format-0.3.1.1-IdImYtolSdoC3n5Y2CJ8aG:Data.Text.Format 9a6b638cf2a34046724796f57984b5cc import -/ text-format-0.3.1.1@text-format-0.3.1.1-IdImYtolSdoC3n5Y2CJ8aG:Data.Text.Format.Types.Internal 6ede970f6a055ff8875db8e2eeee1bd4 import -/ unordered-containers-0.2.8.0@unordered-containers-0.2.8.0-1XEErQCPPPc2SEtcHHNx9o:Data.HashMap.Base 2b46c25df89b2b3ba6c50f91554dc6fe import -/ unordered-containers-0.2.8.0@unordered-containers-0.2.8.0-1XEErQCPPPc2SEtcHHNx9o:Data.HashMap.Strict 05b98a538bea7df232363274cae058f8 727a7530a46e698b98cbd76540f5acaa $trModule :: GHC.Types.Module {- HasNoCafRefs, Strictness: m, Unfolding: (GHC.Types.Module Language.Fixpoint.Smt.Interface.$trModule2 Language.Fixpoint.Smt.Interface.$trModule1) -} e539540f47ba531880fb391693db8d64 $trModule1 :: GHC.Types.TrName {- HasNoCafRefs, Strictness: m1, Unfolding: (GHC.Types.TrNameS "Language.Fixpoint.Smt.Interface"#) -} 87cbc920c5318737287a294d9f37492c $trModule2 :: GHC.Types.TrName {- HasNoCafRefs, Strictness: m1, Unfolding: (GHC.Types.TrNameS "liquid-fixpoint-0.6.0.1-6TLfofWrTFvFP1QJmA2Rhf"#) -} b6ecc9cccf8f40ca09d31459d9faa871 $wsmtBracket :: Language.Fixpoint.Smt.Types.Context -> GHC.Types.IO a -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, a #) {- Arity: 3, Strictness: , Inline: [0], Unfolding: (\ @ a (w :: Language.Fixpoint.Smt.Types.Context) (w1 :: GHC.Types.IO a) (w2 :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> case Language.Fixpoint.Smt.Interface.checkValid6 w Language.Fixpoint.Smt.Interface.checkValidWithContext4 w2 of ds1 { (#,#) ipv ipv1 -> case w1 `cast` (GHC.Types.N:IO[0] _R) ipv of ds2 { (#,#) ipv2 ipv3 -> case Language.Fixpoint.Smt.Interface.checkValid6 w Language.Fixpoint.Smt.Interface.checkValidWithContext2 ipv2 of ds3 { (#,#) ipv4 ipv5 -> (# ipv4, ipv3 #) } } }) -} b2aaacc5e9ef21d36a674a8f39c6767f $wsmtDecl :: Language.Fixpoint.Smt.Types.Context -> GHC.Prim.Int# -> Data.Text.Internal.Text -> Data.Text.Internal.Text -> Language.Fixpoint.Types.Sorts.Sort -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #) {- Arity: 6, Strictness: , Inline: [0], Unfolding: (\ (w :: Language.Fixpoint.Smt.Types.Context) (ww :: GHC.Prim.Int#) (ww1 :: Data.Text.Internal.Text) (ww2 :: Data.Text.Internal.Text) (w1 :: Language.Fixpoint.Types.Sorts.Sort) (w2 :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> let { cmd :: Language.Fixpoint.Smt.Types.Command = case Language.Fixpoint.Types.Sorts.$wgo3 (GHC.Types.[] @ GHC.Types.Int) (GHC.Types.[] @ Language.Fixpoint.Types.Sorts.Sort) w1 of ww3 { (#,,#) ww4 ww5 ww6 -> case ww4 of wild { [] -> case ww5 of wild1 { [] -> case w1 of dt { DEFAULT -> Language.Fixpoint.Smt.Types.Declare (Language.Fixpoint.Types.Names.S ww ww1 ww2) (GHC.Types.[] @ Language.Fixpoint.Types.Sorts.Sort) dt } : ds1 ds2 -> case ww6 of dt { DEFAULT -> Language.Fixpoint.Smt.Types.Declare (Language.Fixpoint.Types.Names.S ww ww1 ww2) wild1 dt } } : ds1 ds2 -> case ww6 of dt { DEFAULT -> Language.Fixpoint.Smt.Types.Declare (Language.Fixpoint.Types.Names.S ww ww1 ww2) ww5 dt } } } } in case Language.Fixpoint.Smt.Interface.checkValid6 w (Data.Text.Internal.Builder.$wtoLazyTextWith 112# (Language.Fixpoint.Smt.Serialize.$fSMTLIB2Command_$csmt2 cmd)) w2 of ds1 { (#,#) ipv ipv1 -> case cmd of wild { DEFAULT -> (# ipv, GHC.Tuple.() #) Language.Fixpoint.Smt.Types.CheckSat -> case w of ww3 { Language.Fixpoint.Smt.Types.Ctx ww4 ww5 ww6 ww7 ww8 ww9 ww10 ww11 ww12 ww13 -> case Language.Fixpoint.Smt.Interface.$wsmtRead ww5 ww7 ipv of ds { (#,#) ipv2 ipv3 -> (# ipv2, GHC.Tuple.() #) } } Language.Fixpoint.Smt.Types.GetValue ds -> case w of ww3 { Language.Fixpoint.Smt.Types.Ctx ww4 ww5 ww6 ww7 ww8 ww9 ww10 ww11 ww12 ww13 -> case Language.Fixpoint.Smt.Interface.$wsmtRead ww5 ww7 ipv of ds2 { (#,#) ipv2 ipv3 -> (# ipv2, GHC.Tuple.() #) } } } }) -} d826c723c9c2ed9496f8b768cf761398 $wsmtRead :: GHC.IO.Handle.Types.Handle -> GHC.Base.Maybe GHC.IO.Handle.Types.Handle -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Language.Fixpoint.Smt.Types.Response #) {- Arity: 3, Strictness: , Inline: [0] -} 114b7294744d1651e10005b1204ab36e type SmtParser a = Data.Attoparsec.Internal.Types.Parser Data.Text.Internal.Text a 796fd6351aef1eb9e1207dbc5a81a519 checkValid :: Language.Fixpoint.Types.Config.Config -> GHC.IO.FilePath -> [(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)] -> Language.Fixpoint.Types.Refinements.Expr -> Language.Fixpoint.Types.Refinements.Expr -> GHC.Types.IO GHC.Types.Bool {- Arity: 6, Strictness: , Unfolding: InlineRule (0, True, True) Language.Fixpoint.Smt.Interface.checkValid1 `cast` (_R ->_R _R ->_R <[(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)]>_R ->_R _R ->_R _R ->_R Sym (GHC.Types.N:IO[0] _R)) -} cbfa59806a702c033240c6a818e09187 checkValid' :: Language.Fixpoint.Smt.Types.Context -> [(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)] -> Language.Fixpoint.Types.Refinements.Expr -> Language.Fixpoint.Types.Refinements.Expr -> GHC.Types.IO GHC.Types.Bool {- Arity: 5, Strictness: , Unfolding: InlineRule (0, True, True) Language.Fixpoint.Smt.Interface.checkValid2 `cast` (_R ->_R <[(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)]>_R ->_R _R ->_R _R ->_R Sym (GHC.Types.N:IO[0] _R)) -} a3468e27c15723ba9af4f6ceafb6dbe4 checkValid1 :: Language.Fixpoint.Types.Config.Config -> GHC.IO.FilePath -> [(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)] -> Language.Fixpoint.Types.Refinements.Expr -> Language.Fixpoint.Types.Refinements.Expr -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, GHC.Types.Bool #) {- Arity: 6, Strictness: , Unfolding: InlineRule (6, True, False) (\ (cfg :: Language.Fixpoint.Types.Config.Config) (f :: GHC.IO.FilePath) (xts :: [(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)]) (p :: Language.Fixpoint.Types.Refinements.Expr) (q :: Language.Fixpoint.Types.Refinements.Expr) (s1 :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> case Language.Fixpoint.Smt.Interface.checkValid8 cfg f s1 of ds1 { (#,#) ipv ipv1 -> Language.Fixpoint.Smt.Interface.checkValid2 ipv1 xts p q ipv }) -} 10fc3bafb6830c5cab80d4243a2f0516 checkValid10 :: Language.Fixpoint.Types.Config.Config -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Language.Fixpoint.Smt.Types.Context #) {- Arity: 2, Strictness: , Unfolding: (\ (cfg :: Language.Fixpoint.Types.Config.Config) (s1 :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> case System.Process.runInteractiveCommand1 (case cfg of wild { Language.Fixpoint.Types.Config.Config ds1 ds2 ds3 ds4 ds5 ds6 ds7 ds8 ds9 ds10 ds11 ds12 ds13 ds14 ds15 ds16 ds17 ds18 ds19 ds20 ds21 ds22 ds23 ds24 ds25 ds26 ds27 ds28 ds29 ds30 ds31 ds32 -> case ds5 of wild1 { Language.Fixpoint.Types.Config.Z3 -> Language.Fixpoint.Smt.Interface.checkValid13 Language.Fixpoint.Types.Config.Cvc4 -> Language.Fixpoint.Smt.Interface.checkValid12 Language.Fixpoint.Types.Config.Mathsat -> Language.Fixpoint.Smt.Interface.checkValid11 } }) s1 of ds1 { (#,#) ipv ipv1 -> case ipv1 of wild { (,,,) hOut hIn ds pid -> case System.Console.CmdArgs.Verbosity.ref `cast` (GHC.IORef.N:IORef[0] _N) of wild1 { GHC.STRef.STRef var# -> case GHC.Prim.readMutVar# @ GHC.Prim.RealWorld @ System.Console.CmdArgs.Verbosity.Verbosity var# ipv of ds2 { (#,#) ipv2 ipv3 -> (# ipv2, case pid of dt { System.Process.Common.ProcessHandle ipv4 ipv5 -> case hIn of dt1 { DEFAULT -> case hOut of dt2 { DEFAULT -> case case ipv3 of wild2 { DEFAULT -> GHC.Types.False System.Console.CmdArgs.Verbosity.Loud -> GHC.Types.True } of dt3 { DEFAULT -> case cfg of wild2 { Language.Fixpoint.Types.Config.Config ds3 ds4 ds5 ds6 ds7 ds8 ds9 ds10 ds11 ds12 ds13 ds14 ds15 ds16 ds17 ds18 ds19 ds20 ds21 ds22 ds23 ds24 ds25 ds26 ds27 ds28 ds29 ds30 ds31 ds32 ds33 ds34 -> case ds26 of dt4 { DEFAULT -> case ds27 of dt5 { DEFAULT -> case ds28 of dt6 { DEFAULT -> case ds29 of dt7 { DEFAULT -> case Language.Fixpoint.Smt.Theories.theorySEnv1 of nt { DEFAULT -> Language.Fixpoint.Smt.Types.Ctx dt dt1 dt2 (GHC.Base.Nothing @ GHC.IO.Handle.Types.Handle) dt3 dt4 dt5 dt6 dt7 nt `cast` (Sym (Language.Fixpoint.Types.Environments.N:SEnv[0]) _N) } } } } } } } } } } #) } } } }) -} fdfd0d55a479cce7587eec155d93e44f checkValid11 :: [GHC.Types.Char] {- Unfolding: (GHC.CString.unpackCString# "mathsat -input=smt2"#) -} f16dba224c9bacfa7f67da2125d569df checkValid12 :: [GHC.Types.Char] {- Unfolding: (GHC.CString.unpackCString# "cvc4 --incremental -L smtlib2"#) -} f7a5d2d1295d066f1edafc1ed8cb9b67 checkValid13 :: [GHC.Types.Char] {- Unfolding: (GHC.CString.unpackCString# "z3 -smt2 -in"#) -} 9c145707f54845f54072e8c98a65c5af checkValid2 :: Language.Fixpoint.Smt.Types.Context -> [(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)] -> Language.Fixpoint.Types.Refinements.Expr -> Language.Fixpoint.Types.Refinements.Expr -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, GHC.Types.Bool #) {- Arity: 5, Strictness: , Unfolding: (\ (me :: Language.Fixpoint.Smt.Types.Context) (xts :: [(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)]) (p :: Language.Fixpoint.Types.Refinements.Expr) (q :: Language.Fixpoint.Types.Refinements.Expr) (s1 :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> case Language.Fixpoint.Smt.Interface.checkValid7 me xts s1 of ds1 { (#,#) ipv ipv1 -> let { cmd :: Language.Fixpoint.Smt.Types.Command = case Language.Fixpoint.Types.Refinements.$fFixpointExpr_$csimplify (Language.Fixpoint.Types.Refinements.PAnd (GHC.Types.: @ Language.Fixpoint.Types.Refinements.Pred p (GHC.Types.: @ Language.Fixpoint.Types.Refinements.Pred (Language.Fixpoint.Types.Refinements.$WPNot q) (GHC.Types.[] @ Language.Fixpoint.Types.Refinements.Pred)))) of dt { DEFAULT -> Language.Fixpoint.Smt.Types.Assert (GHC.Base.Nothing @ GHC.Types.Int) dt } } in case Language.Fixpoint.Smt.Interface.checkValid6 me (Data.Text.Internal.Builder.$wtoLazyTextWith 112# (Language.Fixpoint.Smt.Serialize.$fSMTLIB2Command_$csmt2 cmd)) ipv of ds2 { (#,#) ipv2 ipv3 -> let { $j :: GHC.Prim.State# GHC.Prim.RealWorld -> Language.Fixpoint.Smt.Types.Response -> (# GHC.Prim.State# GHC.Prim.RealWorld, GHC.Types.Bool #) {- Arity: 2 -} = \ (ipv4 :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] (ipv5 :: Language.Fixpoint.Smt.Types.Response)[OneShot] -> case Language.Fixpoint.Smt.Interface.checkValid6 me Language.Fixpoint.Smt.Interface.checkValid4 ipv4 of ds3 { (#,#) ipv6 ipv7 -> case me of ww { Language.Fixpoint.Smt.Types.Ctx ww1 ww2 ww3 ww4 ww5 ww6 ww7 ww8 ww9 ww10 -> case Language.Fixpoint.Smt.Interface.$wsmtRead ww2 ww4 ipv6 of ds { (#,#) ipv8 ipv9 -> (# ipv8, Language.Fixpoint.Smt.Interface.respSat ipv9 #) } } } } in case cmd of wild { DEFAULT -> $j ipv2 Language.Fixpoint.Smt.Types.Ok Language.Fixpoint.Smt.Types.CheckSat -> case me of ww { Language.Fixpoint.Smt.Types.Ctx ww1 ww2 ww3 ww4 ww5 ww6 ww7 ww8 ww9 ww10 -> case Language.Fixpoint.Smt.Interface.$wsmtRead ww2 ww4 ipv2 of ds { (#,#) ipv4 ipv5 -> $j ipv4 ipv5 } } Language.Fixpoint.Smt.Types.GetValue ds -> case me of ww { Language.Fixpoint.Smt.Types.Ctx ww1 ww2 ww3 ww4 ww5 ww6 ww7 ww8 ww9 ww10 -> case Language.Fixpoint.Smt.Interface.$wsmtRead ww2 ww4 ipv2 of ds3 { (#,#) ipv4 ipv5 -> $j ipv4 ipv5 } } } } }) -} 09fd781b85f22a65b1892ebc0c3d3982 checkValid3 :: Language.Fixpoint.Smt.Types.Response -> GHC.Types.Bool {- Arity: 1, Strictness: x -} 9effbe38a4d8b97d9280c952a319b668 checkValid4 :: Data.Text.Internal.Lazy.Text {- Unfolding: (Data.Text.Internal.Builder.$wtoLazyTextWith 112# Language.Fixpoint.Smt.Interface.checkValid5) -} 2710e0c6d482d121d78410fdaeb9bd40 checkValid5 :: Data.Text.Internal.Builder.Builder {- Unfolding: (Language.Fixpoint.Smt.Serialize.$fSMTLIB2Command_$csmt2 Language.Fixpoint.Smt.Types.CheckSat) -} 3721f3db9717972590528f300f5e7c39 checkValid6 :: Language.Fixpoint.Smt.Types.Context -> Language.Fixpoint.Smt.Types.Raw -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #) {- Arity: 3, Strictness: , Unfolding: (\ (me :: Language.Fixpoint.Smt.Types.Context) (s1 :: Language.Fixpoint.Smt.Types.Raw) (eta :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> let { h :: GHC.IO.Handle.Types.Handle = case me of wild { Language.Fixpoint.Smt.Types.Ctx ds1 ds2 ds3 ds4 ds5 ds6 ds7 ds8 ds9 ds10 -> ds3 } } in case Data.Text.Lazy.IO.appendFile2 h s1 eta of ds1 { (#,#) ipv ipv1 -> case GHC.IO.Handle.Text.$whPutChar h '\n'# ipv of ds2 { (#,#) ipv2 ipv3 -> case GHC.IO.Handle.Internals.wantWritableHandle1 @ () GHC.IO.Handle.hFlush2 h GHC.IO.Handle.Internals.flushWriteBuffer1 `cast` (_R ->_R Sym (GHC.Types.N:IO[0] <()>_R)) ipv2 of ds3 { (#,#) ipv4 ipv5 -> case me of wild { Language.Fixpoint.Smt.Types.Ctx ds4 ds5 ds6 ds7 ds8 ds9 ds10 ds11 ds12 ds13 -> case ds7 of wild1 { GHC.Base.Nothing -> (# ipv4, GHC.Tuple.() #) GHC.Base.Just x -> case Data.Text.Lazy.IO.appendFile2 x s1 ipv4 of ds14 { (#,#) ipv6 ipv7 -> case GHC.IO.Handle.Text.$whPutChar x '\n'# ipv6 of ds15 { (#,#) ipv8 ipv9 -> GHC.IO.Handle.Internals.wantWritableHandle1 @ () GHC.IO.Handle.hFlush2 x GHC.IO.Handle.Internals.flushWriteBuffer1 `cast` (_R ->_R Sym (GHC.Types.N:IO[0] <()>_R)) ipv8 } } } } } } }) -} e66d8ba255ec015eaf3e77b6ad980bf6 checkValid7 :: Language.Fixpoint.Smt.Types.Context -> [(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)] -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #) {- Arity: 3, Strictness: , Unfolding: (\ (x :: Language.Fixpoint.Smt.Types.Context) (eta :: [(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)]) (eta1 :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> letrec { go :: [(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)] -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #) {- Arity: 2, Strictness: -} = \ (ds :: [(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)]) (eta2 :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> case ds of wild { [] -> (# eta2, GHC.Tuple.() #) : y ys -> case y of wild1 { (,) x1 ds1 -> case x1 of ww { Language.Fixpoint.Types.Names.S ww1 ww2 ww3 -> case Language.Fixpoint.Smt.Interface.$wsmtDecl x ww1 ww2 ww3 ds1 eta2 of ds2 { (#,#) ipv ipv1 -> go ys ipv } } } } } in go eta eta1) -} 5ca5c478a2edbb4cda61c1be92ffd0a3 checkValid8 :: Language.Fixpoint.Types.Config.Config -> GHC.IO.FilePath -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Language.Fixpoint.Smt.Types.Context #) {- Arity: 3, Strictness: , Unfolding: (\ (cfg :: Language.Fixpoint.Types.Config.Config) (f :: GHC.IO.FilePath) (eta :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> case Language.Fixpoint.Smt.Interface.checkValid10 cfg eta of ds1 { (#,#) ipv ipv1 -> case Language.Fixpoint.Smt.Interface.checkValid9 cfg (Language.Fixpoint.Types.Config.solver cfg) ipv1 ipv of ds2 { (#,#) ipv2 ipv3 -> let { smtFile :: GHC.IO.FilePath = Language.Fixpoint.Utils.Files.extFileName Language.Fixpoint.Utils.Files.Smt2 f } in case System.Directory.createDirectoryIfMissing1 GHC.Types.True (System.FilePath.Posix.takeDirectory smtFile) ipv2 of ds3 { (#,#) ipv4 ipv5 -> case GHC.IO.Handle.FD.openFile1 smtFile GHC.IO.IOMode.WriteMode ipv4 of ds4 { (#,#) ipv6 ipv7 -> let { me' :: Language.Fixpoint.Smt.Types.Context = case ipv1 of wild { Language.Fixpoint.Smt.Types.Ctx ds ds5 ds6 ds7 ds8 ds9 ds10 ds11 ds12 ds13 -> Language.Fixpoint.Smt.Types.Ctx ds ds5 ds6 (GHC.Base.Just @ GHC.IO.Handle.Types.Handle ipv7) ds8 ds9 ds10 ds11 ds12 ds13 } } in letrec { go :: [Language.Fixpoint.Smt.Types.Raw] -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #) {- Arity: 2, Strictness: -} = \ (ds :: [Language.Fixpoint.Smt.Types.Raw]) (eta1 :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> case ds of wild { [] -> (# eta1, GHC.Tuple.() #) : y ys -> case Language.Fixpoint.Smt.Interface.checkValid6 me' y eta1 of ds5 { (#,#) ipv8 ipv9 -> go ys ipv8 } } } in case go ipv3 ipv6 of ds5 { (#,#) ipv8 ipv9 -> (# ipv8, me' #) } } } } }) -} 91861946c6478f0f2e3434edc386520c checkValid9 :: Language.Fixpoint.Types.Config.Config -> Language.Fixpoint.Types.Config.SMTSolver -> Language.Fixpoint.Smt.Types.Context -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, [Data.Text.Internal.Lazy.Text] #) {- Arity: 4, Strictness: -} bbaaf952971e75a57b935dbc6f08df3f checkValidWithContext :: Language.Fixpoint.Smt.Types.Context -> [(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)] -> Language.Fixpoint.Types.Refinements.Expr -> Language.Fixpoint.Types.Refinements.Expr -> GHC.Types.IO GHC.Types.Bool {- Arity: 5, Strictness: , Unfolding: InlineRule (0, True, True) Language.Fixpoint.Smt.Interface.checkValidWithContext1 `cast` (_R ->_R <[(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)]>_R ->_R _R ->_R _R ->_R Sym (GHC.Types.N:IO[0] _R)) -} acde8bbded7db152ec2627d070f4852e checkValidWithContext1 :: Language.Fixpoint.Smt.Types.Context -> [(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)] -> Language.Fixpoint.Types.Refinements.Expr -> Language.Fixpoint.Types.Refinements.Expr -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, GHC.Types.Bool #) {- Arity: 5, Strictness: , Unfolding: (\ (me :: Language.Fixpoint.Smt.Types.Context) (xts :: [(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)]) (p :: Language.Fixpoint.Types.Refinements.Expr) (q :: Language.Fixpoint.Types.Refinements.Expr) (s1 :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> case Language.Fixpoint.Smt.Interface.checkValid6 me Language.Fixpoint.Smt.Interface.checkValidWithContext4 s1 of ds1 { (#,#) ipv ipv1 -> case Language.Fixpoint.Smt.Interface.checkValid2 me xts p q ipv of ds2 { (#,#) ipv2 ipv3 -> case Language.Fixpoint.Smt.Interface.checkValid6 me Language.Fixpoint.Smt.Interface.checkValidWithContext2 ipv2 of ds3 { (#,#) ipv4 ipv5 -> (# ipv4, ipv3 #) } } }) -} 115edccaebba7f40b89299b881c732a6 checkValidWithContext2 :: Data.Text.Internal.Lazy.Text {- Unfolding: (Data.Text.Internal.Builder.$wtoLazyTextWith 112# Language.Fixpoint.Smt.Interface.checkValidWithContext3) -} 8c88ddea685d63f03467d122a32cbd02 checkValidWithContext3 :: Data.Text.Internal.Builder.Builder {- Unfolding: (Language.Fixpoint.Smt.Serialize.$fSMTLIB2Command_$csmt2 Language.Fixpoint.Smt.Types.Pop) -} 3f369a32edc6ecf4562b6c22ed6c28b2 checkValidWithContext4 :: Data.Text.Internal.Lazy.Text {- Unfolding: (Data.Text.Internal.Builder.$wtoLazyTextWith 112# Language.Fixpoint.Smt.Interface.checkValidWithContext5) -} 83a3297a0bb1af6dac7152e828dae338 checkValidWithContext5 :: Data.Text.Internal.Builder.Builder {- Unfolding: (Language.Fixpoint.Smt.Serialize.$fSMTLIB2Command_$csmt2 Language.Fixpoint.Smt.Types.Push) -} 1159b1b63c864537ee0529addf754892 checkValids :: Language.Fixpoint.Types.Config.Config -> GHC.IO.FilePath -> [(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)] -> [Language.Fixpoint.Types.Refinements.Expr] -> GHC.Types.IO [GHC.Types.Bool] {- Arity: 5, Strictness: , Unfolding: InlineRule (0, True, True) Language.Fixpoint.Smt.Interface.checkValids1 `cast` (_R ->_R _R ->_R <[(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)]>_R ->_R <[Language.Fixpoint.Types.Refinements.Expr]>_R ->_R Sym (GHC.Types.N:IO[0] <[GHC.Types.Bool]>_R)) -} 743b9c64f390e4bd10ef52803f263676 checkValids1 :: Language.Fixpoint.Types.Config.Config -> GHC.IO.FilePath -> [(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)] -> [Language.Fixpoint.Types.Refinements.Expr] -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, [GHC.Types.Bool] #) {- Arity: 5, Strictness: , Unfolding: (\ (cfg :: Language.Fixpoint.Types.Config.Config) (f :: GHC.IO.FilePath) (xts :: [(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)]) (ps :: [Language.Fixpoint.Types.Refinements.Expr]) (s1 :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> case Language.Fixpoint.Smt.Interface.checkValid8 cfg f s1 of ds1 { (#,#) ipv ipv1 -> case Language.Fixpoint.Smt.Interface.checkValid7 ipv1 xts ipv of ds2 { (#,#) ipv2 ipv3 -> letrec { go :: [Language.Fixpoint.Types.Refinements.Expr] -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, [GHC.Types.Bool] #) {- Arity: 2, Strictness: -} = \ (ds :: [Language.Fixpoint.Types.Refinements.Expr]) (eta :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> case ds of wild { [] -> (# eta, GHC.Types.[] @ GHC.Types.Bool #) : y ys -> case Language.Fixpoint.Smt.Interface.checkValid6 ipv1 Language.Fixpoint.Smt.Interface.checkValidWithContext4 eta of ds3 { (#,#) ipv4 ipv5 -> let { cmd :: Language.Fixpoint.Smt.Types.Command = case y of dt { DEFAULT -> Language.Fixpoint.Smt.Types.Assert (GHC.Base.Nothing @ GHC.Types.Int) (Language.Fixpoint.Types.Refinements.PNot dt) } } in case Language.Fixpoint.Smt.Interface.checkValid6 ipv1 (Data.Text.Internal.Builder.$wtoLazyTextWith 112# (Language.Fixpoint.Smt.Serialize.$fSMTLIB2Command_$csmt2 cmd)) ipv4 of ds4 { (#,#) ipv6 ipv7 -> let { $j :: GHC.Prim.State# GHC.Prim.RealWorld -> Language.Fixpoint.Smt.Types.Response -> (# GHC.Prim.State# GHC.Prim.RealWorld, [GHC.Types.Bool] #) {- Arity: 2 -} = \ (ipv8 :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] (ipv9 :: Language.Fixpoint.Smt.Types.Response)[OneShot] -> case Language.Fixpoint.Smt.Interface.checkValid6 ipv1 Language.Fixpoint.Smt.Interface.checkValid4 ipv8 of ds5 { (#,#) ipv10 ipv11 -> case ipv1 of ww { Language.Fixpoint.Smt.Types.Ctx ww1 ww2 ww3 ww4 ww5 ww6 ww7 ww8 ww9 ww10 -> case Language.Fixpoint.Smt.Interface.$wsmtRead ww2 ww4 ipv10 of ds6 { (#,#) ipv12 ipv13 -> case Language.Fixpoint.Smt.Interface.checkValid6 ww Language.Fixpoint.Smt.Interface.checkValidWithContext2 ipv12 of ds7 { (#,#) ipv14 ipv15 -> case go ys ipv14 of ds8 { (#,#) ipv16 ipv17 -> (# ipv16, GHC.Types.: @ GHC.Types.Bool (Language.Fixpoint.Smt.Interface.respSat ipv13) ipv17 #) } } } } } } in case cmd of wild1 { DEFAULT -> $j ipv6 Language.Fixpoint.Smt.Types.Ok Language.Fixpoint.Smt.Types.CheckSat -> case ipv1 of ww { Language.Fixpoint.Smt.Types.Ctx ww1 ww2 ww3 ww4 ww5 ww6 ww7 ww8 ww9 ww10 -> case Language.Fixpoint.Smt.Interface.$wsmtRead ww2 ww4 ipv6 of ds5 { (#,#) ipv8 ipv9 -> $j ipv8 ipv9 } } Language.Fixpoint.Smt.Types.GetValue ds5 -> case ipv1 of ww { Language.Fixpoint.Smt.Types.Ctx ww1 ww2 ww3 ww4 ww5 ww6 ww7 ww8 ww9 ww10 -> case Language.Fixpoint.Smt.Interface.$wsmtRead ww2 ww4 ipv6 of ds6 { (#,#) ipv8 ipv9 -> $j ipv8 ipv9 } } } } } } } in go ps ipv2 } }) -} dfecdba7a4bc5ce1a7d160bff8fab1a5 cleanupContext :: Language.Fixpoint.Smt.Types.Context -> GHC.Types.IO GHC.IO.Exception.ExitCode {- Arity: 2, Strictness: , Unfolding: InlineRule (0, True, True) Language.Fixpoint.Smt.Interface.cleanupContext1 `cast` (_R ->_R Sym (GHC.Types.N:IO[0] _R)) -} 630e66079245bcb4dd292b0a683264c6 cleanupContext1 :: Language.Fixpoint.Smt.Types.Context -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, GHC.IO.Exception.ExitCode #) {- Arity: 2, Strictness: , Inline: INLINE[0], Unfolding: InlineRule (2, True, False) (\ (w :: Language.Fixpoint.Smt.Types.Context) (w1 :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> case w of ww { Language.Fixpoint.Smt.Types.Ctx ww1 ww2 ww3 ww4 ww5 ww6 ww7 ww8 ww9 ww10 -> case ww1 of ww11 { System.Process.Common.ProcessHandle ww12 ww13 -> case Language.Fixpoint.Smt.Interface.cleanupContext5 Language.Fixpoint.Smt.Interface.cleanupContext4 ww2 w1 of ds1 { (#,#) ipv ipv1 -> case Language.Fixpoint.Smt.Interface.cleanupContext5 Language.Fixpoint.Smt.Interface.cleanupContext3 ww3 ipv of ds2 { (#,#) ipv2 ipv3 -> case ww4 of wild { GHC.Base.Nothing -> System.Process.$wwaitForProcess ww12 ww13 ipv2 GHC.Base.Just x -> case Language.Fixpoint.Smt.Interface.cleanupContext5 Language.Fixpoint.Smt.Interface.cleanupContext2 x ipv2 of ds3 { (#,#) ipv4 ipv5 -> System.Process.$wwaitForProcess ww12 ww13 ipv4 } } } } } }) -} 0619229a85ea4bff1330f700c8b29f57 cleanupContext2 :: [GHC.Types.Char] {- Unfolding: (GHC.CString.unpackCString# "ctxLog"#) -} fa7d71ee1b0a2542242a0c23d9b331f1 cleanupContext3 :: [GHC.Types.Char] {- Unfolding: (GHC.CString.unpackCString# "ctxCout"#) -} 291ef823139b8569c997f091ab5b3d82 cleanupContext4 :: [GHC.Types.Char] {- Unfolding: (GHC.CString.unpackCString# "ctxCin"#) -} 46bb78fc4719f30c6fbc4fb2f6c6204e cleanupContext5 :: GHC.Base.String -> GHC.IO.Handle.Types.Handle -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #) {- Arity: 3, Strictness: , Unfolding: (\ (msg :: GHC.Base.String) (h :: GHC.IO.Handle.Types.Handle) (eta :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> GHC.Prim.catch# @ () @ GHC.Exception.SomeException (GHC.Magic.lazy @ (GHC.Types.IO ()) (GHC.IO.Handle.hClose1 h) `cast` (Sym (GHC.Types.N:IO[0] <()>_R))) `cast` (GHC.Types.N:IO[0] <()>_R) (\ (e1 :: GHC.Exception.SomeException)[OneShot] (eta1 :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> case e1 of wild { GHC.Exception.SomeException e100 $dException1 e2 -> case (GHC.Exception.$p1Exception @ e100 $dException1) `cast` (Data.Typeable.Internal.N:Typeable[0] <*>_N _N) (GHC.Prim.proxy# @ * @ e100) of wild1 { Data.Typeable.Internal.TypeRep dt dt1 ds2 ds3 ds4 -> case GHC.IO.Exception.$fExceptionIOException3 of wild2 { Data.Typeable.Internal.TypeRep dt2 dt3 ds5 ds6 ds7 -> case GHC.Prim.tagToEnum# @ GHC.Types.Bool (GHC.Prim.eqWord# dt dt2) of wild3 { GHC.Types.False -> GHC.Prim.raiseIO# @ GHC.Exception.SomeException @ () wild eta1 GHC.Types.True -> case GHC.Prim.tagToEnum# @ GHC.Types.Bool (GHC.Prim.eqWord# dt1 dt3) of wild4 { GHC.Types.False -> GHC.Prim.raiseIO# @ GHC.Exception.SomeException @ () wild eta1 GHC.Types.True -> GHC.IO.Handle.Text.hPutStr2 GHC.IO.Handle.FD.stdout (GHC.CString.unpackAppendCString# "OOPS, hClose breaks: "# (GHC.Base.++ @ GHC.Types.Char msg (case e2 `cast` (UnsafeCo representational e100 GHC.IO.Exception.IOException) of ww { GHC.IO.Exception.IOError ww1 ww2 ww3 ww4 ww5 ww6 -> GHC.IO.Exception.$w$cshowsPrec2 ww1 ww2 ww3 ww4 ww6 (GHC.Types.[] @ GHC.Types.Char) }))) GHC.Types.True eta1 } } } } }) eta) -} 744c73d821f28a7ce39d972bd29a1b23 command :: Language.Fixpoint.Smt.Types.Context -> Language.Fixpoint.Smt.Types.Command -> GHC.Types.IO Language.Fixpoint.Smt.Types.Response {- Arity: 3, Strictness: , Unfolding: InlineRule (0, True, True) Language.Fixpoint.Smt.Interface.command1 `cast` (_R ->_R _R ->_R Sym (GHC.Types.N:IO[0] _R)) -} fc16d62a9e825acaaa928fc0811974e7 command1 :: Language.Fixpoint.Smt.Types.Context -> Language.Fixpoint.Smt.Types.Command -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Language.Fixpoint.Smt.Types.Response #) {- Arity: 3, Strictness: , Unfolding: (\ (me :: Language.Fixpoint.Smt.Types.Context) (cmd :: Language.Fixpoint.Smt.Types.Command) (eta :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> case Language.Fixpoint.Smt.Interface.checkValid6 me (Data.Text.Internal.Builder.$wtoLazyTextWith 112# (Language.Fixpoint.Smt.Serialize.$fSMTLIB2Command_$csmt2 cmd)) eta of ds1 { (#,#) ipv ipv1 -> case cmd of wild { DEFAULT -> (# ipv, Language.Fixpoint.Smt.Types.Ok #) Language.Fixpoint.Smt.Types.CheckSat -> Language.Fixpoint.Smt.Interface.command2 me ipv Language.Fixpoint.Smt.Types.GetValue ds -> Language.Fixpoint.Smt.Interface.command2 me ipv } }) -} 9555e5ca8cabf0512937245922011059 command2 :: Language.Fixpoint.Smt.Types.Context -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Language.Fixpoint.Smt.Types.Response #) {- Arity: 2, Strictness: , Inline: INLINE[0], Unfolding: InlineRule (2, True, False) (\ (w :: Language.Fixpoint.Smt.Types.Context) (w1 :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> case w of ww { Language.Fixpoint.Smt.Types.Ctx ww1 ww2 ww3 ww4 ww5 ww6 ww7 ww8 ww9 ww10 -> Language.Fixpoint.Smt.Interface.$wsmtRead ww2 ww4 w1 }) -} 5feef609ea5799c1a310b7a085bca12f makeContext :: Language.Fixpoint.Types.Config.Config -> GHC.IO.FilePath -> GHC.Types.IO Language.Fixpoint.Smt.Types.Context {- Arity: 3, Strictness: , Unfolding: InlineRule (0, True, True) Language.Fixpoint.Smt.Interface.checkValid8 `cast` (_R ->_R _R ->_R Sym (GHC.Types.N:IO[0] _R)) -} 2d283619b23f3bd80235d4921fb806e3 makeContextNoLog :: Language.Fixpoint.Types.Config.Config -> GHC.Types.IO Language.Fixpoint.Smt.Types.Context {- Arity: 2, Strictness: , Unfolding: InlineRule (0, True, True) Language.Fixpoint.Smt.Interface.makeContextNoLog1 `cast` (_R ->_R Sym (GHC.Types.N:IO[0] _R)) -} 7f49bc4a76741b2b2095e0859e017e06 makeContextNoLog1 :: Language.Fixpoint.Types.Config.Config -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Language.Fixpoint.Smt.Types.Context #) {- Arity: 2, Strictness: , Unfolding: (\ (cfg :: Language.Fixpoint.Types.Config.Config) (s1 :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> case Language.Fixpoint.Smt.Interface.checkValid10 cfg s1 of ds1 { (#,#) ipv ipv1 -> case Language.Fixpoint.Smt.Interface.checkValid9 cfg (Language.Fixpoint.Types.Config.solver cfg) ipv1 ipv of ds2 { (#,#) ipv2 ipv3 -> letrec { go :: [Language.Fixpoint.Smt.Types.Raw] -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #) {- Arity: 2, Strictness: -} = \ (ds :: [Language.Fixpoint.Smt.Types.Raw]) (eta :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> case ds of wild { [] -> (# eta, GHC.Tuple.() #) : y ys -> case Language.Fixpoint.Smt.Interface.checkValid6 ipv1 y eta of ds3 { (#,#) ipv4 ipv5 -> go ys ipv4 } } } in case go ipv3 ipv2 of ds3 { (#,#) ipv4 ipv5 -> (# ipv4, ipv1 #) } } }) -} aa3bfd7b0950ac8c47069b3436c2f4fc makeContextWithSEnv :: Language.Fixpoint.Types.Config.Config -> GHC.IO.FilePath -> Language.Fixpoint.Smt.Types.SMTEnv -> GHC.Types.IO Language.Fixpoint.Smt.Types.Context {- Arity: 4, Strictness: , Unfolding: InlineRule (0, True, True) Language.Fixpoint.Smt.Interface.makeContextWithSEnv1 `cast` (_R ->_R _R ->_R _R ->_R Sym (GHC.Types.N:IO[0] _R)) -} 1a309a7ed9b881bb4694aaf7a1a24962 makeContextWithSEnv1 :: Language.Fixpoint.Types.Config.Config -> GHC.IO.FilePath -> Language.Fixpoint.Smt.Types.SMTEnv -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Language.Fixpoint.Smt.Types.Context #) {- Arity: 4, Strictness: , Unfolding: InlineRule (4, True, False) (\ (cfg :: Language.Fixpoint.Types.Config.Config) (f :: GHC.IO.FilePath) (env :: Language.Fixpoint.Smt.Types.SMTEnv) (eta :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> case Language.Fixpoint.Smt.Interface.checkValid8 cfg f eta of ds { (#,#) ipv ipv1 -> (# ipv, case ipv1 of wild { Language.Fixpoint.Smt.Types.Ctx ds1 ds2 ds3 ds4 ds5 ds6 ds7 ds8 ds9 ds10 -> case env `cast` (Language.Fixpoint.Types.Environments.N:SEnv[0] _N) of nt { DEFAULT -> Language.Fixpoint.Smt.Types.Ctx ds1 ds2 ds3 ds4 ds5 ds6 ds7 ds8 ds9 nt `cast` (Sym (Language.Fixpoint.Types.Environments.N:SEnv[0]) _N) } } #) }) -} 801f9ba67d87354d12bb8c8e34b7cd31 makeSmtContext :: Language.Fixpoint.Types.Config.Config -> GHC.IO.FilePath -> [(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)] -> GHC.Types.IO Language.Fixpoint.Smt.Types.Context {- Arity: 4, Strictness: , Unfolding: InlineRule (0, True, True) Language.Fixpoint.Smt.Interface.makeSmtContext1 `cast` (_R ->_R _R ->_R <[(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)]>_R ->_R Sym (GHC.Types.N:IO[0] _R)) -} b977868596bc2ce0ca325e933962a2f7 makeSmtContext1 :: Language.Fixpoint.Types.Config.Config -> GHC.IO.FilePath -> [(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)] -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, Language.Fixpoint.Smt.Types.Context #) {- Arity: 4, Strictness: , Unfolding: (\ (cfg :: Language.Fixpoint.Types.Config.Config) (f :: GHC.IO.FilePath) (xts :: [(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)]) (s1 :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> case Language.Fixpoint.Smt.Interface.checkValid8 cfg f s1 of ds { (#,#) ipv ipv1 -> let { me :: Language.Fixpoint.Smt.Types.Context = case ipv1 of wild { Language.Fixpoint.Smt.Types.Ctx ds1 ds2 ds3 ds4 ds5 ds6 ds7 ds8 ds9 ds10 -> case Language.Fixpoint.Types.Refinements.$dmsubst2 @ Language.Fixpoint.Types.Sorts.Sort xts (Data.HashMap.Base.Empty @ Language.Fixpoint.Types.Names.Symbol @ Language.Fixpoint.Types.Sorts.Sort) of nt { DEFAULT -> Language.Fixpoint.Smt.Types.Ctx ds1 ds2 ds3 ds4 ds5 ds6 ds7 ds8 ds9 nt `cast` (Sym (Language.Fixpoint.Types.Environments.N:SEnv[0]) _N) } } } in case Language.Fixpoint.Smt.Interface.checkValid7 me Language.Fixpoint.Smt.Interface.theoryDecls ipv of ds1 { (#,#) ipv2 ipv3 -> case Language.Fixpoint.Smt.Interface.checkValid7 me xts ipv2 of ds2 { (#,#) ipv4 ipv5 -> (# ipv4, me #) } } }) -} b16a74603be0184cbb741380f06024e1 makeSmtContext_go1 :: [(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)] -> Data.HashMap.Base.HashMap Language.Fixpoint.Types.Names.Symbol Language.Fixpoint.Smt.Types.TheorySymbol -> [(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)] {- Arity: 2, HasNoCafRefs, Strictness: -} 79d4ea345ed2c9c4d439a1a264657fe3 respSat :: Language.Fixpoint.Smt.Types.Response -> GHC.Types.Bool {- Arity: 1, Strictness: , Unfolding: (\ (ds :: Language.Fixpoint.Smt.Types.Response) -> case ds of wild { DEFAULT -> Language.Fixpoint.Smt.Interface.checkValid3 wild Language.Fixpoint.Smt.Types.Sat -> GHC.Types.False Language.Fixpoint.Smt.Types.Unsat -> GHC.Types.True Language.Fixpoint.Smt.Types.Unknown -> GHC.Types.False }) -} 6415f68b06a893292ec35cfdeafa416e smtAssert :: Language.Fixpoint.Smt.Types.Context -> Language.Fixpoint.Types.Refinements.Expr -> GHC.Types.IO () {- Arity: 3, Strictness: , Unfolding: InlineRule (0, True, True) Language.Fixpoint.Smt.Interface.smtAssert1 `cast` (_R ->_R _R ->_R Sym (GHC.Types.N:IO[0] <()>_R)) -} 633d087e858ad3f375d206ec7b6e6465 smtAssert1 :: Language.Fixpoint.Smt.Types.Context -> Language.Fixpoint.Types.Refinements.Expr -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #) {- Arity: 3, Strictness: , Unfolding: InlineRule (3, True, False) (\ (me :: Language.Fixpoint.Smt.Types.Context) (p :: Language.Fixpoint.Types.Refinements.Expr) (eta2 :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> case p of dt { DEFAULT -> case Language.Fixpoint.Smt.Interface.command1 me (Language.Fixpoint.Smt.Types.Assert (GHC.Base.Nothing @ GHC.Types.Int) dt) eta2 of ds { (#,#) ipv ipv1 -> (# ipv, GHC.Tuple.() #) } }) -} 9826320294302a2b42e0027a3a9a0f41 smtAssertAxiom :: Language.Fixpoint.Smt.Types.Context -> Language.Fixpoint.Types.Triggers.Triggered Language.Fixpoint.Types.Refinements.Expr -> GHC.Types.IO () {- Arity: 3, Strictness: , Unfolding: InlineRule (0, True, True) Language.Fixpoint.Smt.Interface.smtAssertAxiom1 `cast` (_R ->_R _R ->_R Sym (GHC.Types.N:IO[0] <()>_R)) -} d70ca70ded44e4760f7ce777166ea498 smtAssertAxiom1 :: Language.Fixpoint.Smt.Types.Context -> Language.Fixpoint.Types.Triggers.Triggered Language.Fixpoint.Types.Refinements.Expr -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #) {- Arity: 3, Strictness: , Unfolding: InlineRule (3, True, False) (\ (me :: Language.Fixpoint.Smt.Types.Context) (p :: Language.Fixpoint.Types.Triggers.Triggered Language.Fixpoint.Types.Refinements.Expr) (eta2 :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> case p of dt { Language.Fixpoint.Types.Triggers.TR ipv ipv1 -> case Language.Fixpoint.Smt.Interface.command1 me (Language.Fixpoint.Smt.Types.AssertAxiom dt) eta2 of ds { (#,#) ipv2 ipv3 -> (# ipv2, GHC.Tuple.() #) } }) -} 34a4108d598c0350dee16480cf6e485f smtBracket :: Language.Fixpoint.Smt.Types.Context -> GHC.Base.String -> GHC.Types.IO a -> GHC.Types.IO a {- Arity: 4, Strictness: , Unfolding: InlineRule (0, True, True) Language.Fixpoint.Smt.Interface.smtBracket1 `cast` (forall (a :: <*>_N). _R ->_R _R ->_R _R ->_R Sym (GHC.Types.N:IO[0] _R)) -} cc12540c53765166063b4983f868a30a smtBracket1 :: Language.Fixpoint.Smt.Types.Context -> GHC.Base.String -> GHC.Types.IO a -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, a #) {- Arity: 4, Strictness: , Inline: INLINE[0], Unfolding: InlineRule (4, True, True) (\ @ a (w :: Language.Fixpoint.Smt.Types.Context) (w1 :: GHC.Base.String) (w2 :: GHC.Types.IO a) (w3 :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> Language.Fixpoint.Smt.Interface.$wsmtBracket @ a w w2 w3) -} bca8fc8c2463e4040546e6f9ebbdc1c3 smtCheckSat :: Language.Fixpoint.Smt.Types.Context -> Language.Fixpoint.Types.Refinements.Expr -> GHC.Types.IO GHC.Types.Bool {- Arity: 3, Strictness: , Unfolding: InlineRule (0, True, True) Language.Fixpoint.Smt.Interface.smtCheckSat1 `cast` (_R ->_R _R ->_R Sym (GHC.Types.N:IO[0] _R)) -} 90092e5979b7cb11b69b608a8bd55d61 smtCheckSat1 :: Language.Fixpoint.Smt.Types.Context -> Language.Fixpoint.Types.Refinements.Expr -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, GHC.Types.Bool #) {- Arity: 3, Strictness: , Unfolding: (\ (me :: Language.Fixpoint.Smt.Types.Context) (p :: Language.Fixpoint.Types.Refinements.Expr) (s1 :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> let { cmd :: Language.Fixpoint.Smt.Types.Command = case p of dt { DEFAULT -> Language.Fixpoint.Smt.Types.Assert (GHC.Base.Nothing @ GHC.Types.Int) dt } } in case Language.Fixpoint.Smt.Interface.checkValid6 me (Data.Text.Internal.Builder.$wtoLazyTextWith 112# (Language.Fixpoint.Smt.Serialize.$fSMTLIB2Command_$csmt2 cmd)) s1 of ds1 { (#,#) ipv ipv1 -> let { $j :: GHC.Prim.State# GHC.Prim.RealWorld -> Language.Fixpoint.Smt.Types.Response -> (# GHC.Prim.State# GHC.Prim.RealWorld, GHC.Types.Bool #) {- Arity: 2 -} = \ (ipv2 :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] (ipv3 :: Language.Fixpoint.Smt.Types.Response)[OneShot] -> case Language.Fixpoint.Smt.Interface.checkValid6 me Language.Fixpoint.Smt.Interface.checkValid4 ipv2 of ds2 { (#,#) ipv4 ipv5 -> case me of ww { Language.Fixpoint.Smt.Types.Ctx ww1 ww2 ww3 ww4 ww5 ww6 ww7 ww8 ww9 ww10 -> case Language.Fixpoint.Smt.Interface.$wsmtRead ww2 ww4 ipv4 of ds { (#,#) ipv6 ipv7 -> (# ipv6, case ipv7 of wild { DEFAULT -> GHC.Types.False Language.Fixpoint.Smt.Types.Sat -> GHC.Types.True } #) } } } } in case cmd of wild { DEFAULT -> $j ipv Language.Fixpoint.Smt.Types.Ok Language.Fixpoint.Smt.Types.CheckSat -> case me of ww { Language.Fixpoint.Smt.Types.Ctx ww1 ww2 ww3 ww4 ww5 ww6 ww7 ww8 ww9 ww10 -> case Language.Fixpoint.Smt.Interface.$wsmtRead ww2 ww4 ipv of ds { (#,#) ipv2 ipv3 -> $j ipv2 ipv3 } } Language.Fixpoint.Smt.Types.GetValue ds -> case me of ww { Language.Fixpoint.Smt.Types.Ctx ww1 ww2 ww3 ww4 ww5 ww6 ww7 ww8 ww9 ww10 -> case Language.Fixpoint.Smt.Interface.$wsmtRead ww2 ww4 ipv of ds2 { (#,#) ipv2 ipv3 -> $j ipv2 ipv3 } } } }) -} 7d0e7aefc62ddaecca2eeca3d957327a smtCheckUnsat :: Language.Fixpoint.Smt.Types.Context -> GHC.Types.IO GHC.Types.Bool {- Arity: 2, Strictness: , Unfolding: InlineRule (0, True, True) Language.Fixpoint.Smt.Interface.smtCheckUnsat1 `cast` (_R ->_R Sym (GHC.Types.N:IO[0] _R)) -} 6e4c6486538616bec6200bfa2af07e1a smtCheckUnsat1 :: Language.Fixpoint.Smt.Types.Context -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, GHC.Types.Bool #) {- Arity: 2, Strictness: , Unfolding: (\ (me :: Language.Fixpoint.Smt.Types.Context) (eta :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> case Language.Fixpoint.Smt.Interface.checkValid6 me Language.Fixpoint.Smt.Interface.checkValid4 eta of ds1 { (#,#) ipv ipv1 -> case me of ww { Language.Fixpoint.Smt.Types.Ctx ww1 ww2 ww3 ww4 ww5 ww6 ww7 ww8 ww9 ww10 -> case Language.Fixpoint.Smt.Interface.$wsmtRead ww2 ww4 ipv of ds { (#,#) ipv2 ipv3 -> (# ipv2, Language.Fixpoint.Smt.Interface.respSat ipv3 #) } } }) -} ae52875bf446f015cafd9d6d7deb039f smtDecl :: Language.Fixpoint.Smt.Types.Context -> Language.Fixpoint.Types.Names.Symbol -> Language.Fixpoint.Types.Sorts.Sort -> GHC.Types.IO () {- Arity: 4, Strictness: , Unfolding: InlineRule (0, True, True) Language.Fixpoint.Smt.Interface.smtDecl1 `cast` (_R ->_R _R ->_R _R ->_R Sym (GHC.Types.N:IO[0] <()>_R)) -} bc6fab37b3d206acc966e39d5773ac2f smtDecl1 :: Language.Fixpoint.Smt.Types.Context -> Language.Fixpoint.Types.Names.Symbol -> Language.Fixpoint.Types.Sorts.Sort -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #) {- Arity: 4, Strictness: , Inline: INLINE[0], Unfolding: InlineRule (4, True, False) (\ (w :: Language.Fixpoint.Smt.Types.Context) (w1 :: Language.Fixpoint.Types.Names.Symbol) (w2 :: Language.Fixpoint.Types.Sorts.Sort) (w3 :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> case w1 of ww { Language.Fixpoint.Types.Names.S ww1 ww2 ww3 -> Language.Fixpoint.Smt.Interface.$wsmtDecl w ww1 ww2 ww3 w2 w3 }) -} 3037127fceed48a40cdbc14488a968f8 smtDecls :: Language.Fixpoint.Smt.Types.Context -> [(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)] -> GHC.Types.IO () {- Arity: 3, Strictness: , Unfolding: InlineRule (0, True, True) Language.Fixpoint.Smt.Interface.checkValid7 `cast` (_R ->_R <[(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)]>_R ->_R Sym (GHC.Types.N:IO[0] <()>_R)) -} e1883764abfd0d8cc4117ab11da711d0 smtDistinct :: Language.Fixpoint.Smt.Types.Context -> [Language.Fixpoint.Types.Refinements.Expr] -> GHC.Types.IO () {- Arity: 3, Strictness: , Unfolding: InlineRule (0, True, True) Language.Fixpoint.Smt.Interface.smtDistinct1 `cast` (_R ->_R <[Language.Fixpoint.Types.Refinements.Expr]>_R ->_R Sym (GHC.Types.N:IO[0] <()>_R)) -} 8fa062132fbd6ed485a310d899e70520 smtDistinct1 :: Language.Fixpoint.Smt.Types.Context -> [Language.Fixpoint.Types.Refinements.Expr] -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #) {- Arity: 3, Strictness: , Unfolding: InlineRule (3, True, False) (\ (me :: Language.Fixpoint.Smt.Types.Context) (az :: [Language.Fixpoint.Types.Refinements.Expr]) (eta2 :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> case Language.Fixpoint.Smt.Interface.checkValid6 me (Data.Text.Internal.Builder.$wtoLazyTextWith 112# (Language.Fixpoint.Smt.Serialize.$fSMTLIB2Command_$csmt2 (Language.Fixpoint.Smt.Types.Distinct az))) eta2 of ds1 { (#,#) ipv ipv1 -> (# ipv, GHC.Tuple.() #) }) -} ceb826b862d6c1556e3673f3917eec48 smtPop :: Language.Fixpoint.Smt.Types.Context -> GHC.Types.IO () {- Arity: 2, Strictness: , Unfolding: InlineRule (0, True, True) Language.Fixpoint.Smt.Interface.smtPop1 `cast` (_R ->_R Sym (GHC.Types.N:IO[0] <()>_R)) -} b1c1575004d0a0940efe07944c7e0778 smtPop1 :: Language.Fixpoint.Smt.Types.Context -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #) {- Arity: 2, Strictness: , Unfolding: InlineRule (2, True, False) (\ (me :: Language.Fixpoint.Smt.Types.Context) (eta2 :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> case Language.Fixpoint.Smt.Interface.checkValid6 me (Data.Text.Internal.Builder.$wtoLazyTextWith 112# (Language.Fixpoint.Smt.Serialize.$fSMTLIB2Command_$csmt2 Language.Fixpoint.Smt.Types.Pop)) eta2 of ds1 { (#,#) ipv ipv1 -> (# ipv, GHC.Tuple.() #) }) -} b5d45126fbc5298397a30f76fb8178f1 smtPush :: Language.Fixpoint.Smt.Types.Context -> GHC.Types.IO () {- Arity: 2, Strictness: , Unfolding: InlineRule (0, True, True) Language.Fixpoint.Smt.Interface.smtPush1 `cast` (_R ->_R Sym (GHC.Types.N:IO[0] <()>_R)) -} f7f9d81db97152a5a83592e2d95dff40 smtPush1 :: Language.Fixpoint.Smt.Types.Context -> GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #) {- Arity: 2, Strictness: , Unfolding: InlineRule (2, True, False) (\ (me :: Language.Fixpoint.Smt.Types.Context) (eta2 :: GHC.Prim.State# GHC.Prim.RealWorld)[OneShot] -> case Language.Fixpoint.Smt.Interface.checkValid6 me (Data.Text.Internal.Builder.$wtoLazyTextWith 112# (Language.Fixpoint.Smt.Serialize.$fSMTLIB2Command_$csmt2 Language.Fixpoint.Smt.Types.Push)) eta2 of ds1 { (#,#) ipv ipv1 -> (# ipv, GHC.Tuple.() #) }) -} 3fdb47f305e08b1bdde2cd7f5995f42c smtWrite :: Language.Fixpoint.Smt.Types.Context -> Language.Fixpoint.Smt.Types.Raw -> GHC.Types.IO () {- Arity: 3, Strictness: , Unfolding: InlineRule (0, True, True) Language.Fixpoint.Smt.Interface.checkValid6 `cast` (_R ->_R _R ->_R Sym (GHC.Types.N:IO[0] <()>_R)) -} 3d66a1e52be3d62bcb491271fc467096 theoryDecls :: [(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)] {- Unfolding: (Language.Fixpoint.Smt.Interface.makeSmtContext_go1 (GHC.Types.[] @ (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Sorts.Sort)) Language.Fixpoint.Smt.Theories.theorySymbols) -} vectorised variables: vectorised tycons: vectorised reused tycons: parallel variables: parallel tycons: trusted: none require own pkg trusted: False