==================== FINAL INTERFACE ==================== 2017-05-02 18:36:55.610356 UTC interface liquid-fixpoint-0.6.0.1-6TLfofWrTFvFP1QJmA2Rhf:Language.Fixpoint.Types.Visitor 8002 interface hash: 18aecacb54027828219ea7e70c964d35 ABI hash: 8cae387e2f4319552a95752f5dcd18fb export-list hash: 26f0cdfe40ac2491bdd244bfea3f01e6 orphan hash: 5b934e0dd0e62ab8e030acf5b59e23f2 flag hash: 62b01c897a7d4c18327bdf49df798e9a sig of: Nothing used TH splices: False where exports: Language.Fixpoint.Types.Visitor.defaultVisitor Language.Fixpoint.Types.Visitor.eapps Language.Fixpoint.Types.Visitor.envKVars Language.Fixpoint.Types.Visitor.envKVarsN Language.Fixpoint.Types.Visitor.fold Language.Fixpoint.Types.Visitor.foldSort Language.Fixpoint.Types.Visitor.isConcC Language.Fixpoint.Types.Visitor.isKvarC Language.Fixpoint.Types.Visitor.kvars Language.Fixpoint.Types.Visitor.lamSize Language.Fixpoint.Types.Visitor.mapExpr Language.Fixpoint.Types.Visitor.mapKVarSubsts Language.Fixpoint.Types.Visitor.mapKVars Language.Fixpoint.Types.Visitor.mapKVars' Language.Fixpoint.Types.Visitor.mapMExpr Language.Fixpoint.Types.Visitor.mapSort Language.Fixpoint.Types.Visitor.rhsKVars Language.Fixpoint.Types.Visitor.size Language.Fixpoint.Types.Visitor.stripCasts Language.Fixpoint.Types.Visitor.trans Language.Fixpoint.Types.Visitor.SymConsts{Language.Fixpoint.Types.Visitor.symConsts} Language.Fixpoint.Types.Visitor.Visitable{Language.Fixpoint.Types.Visitor.visit} Language.Fixpoint.Types.Visitor.Visitor{Language.Fixpoint.Types.Visitor.Visitor accExpr ctxExpr txExpr} module dependencies: Language.Fixpoint.Misc 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 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 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 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 process-1.4.3.0@process-1.4.3.0 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 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 orphans: 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.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 family instance modules: 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 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 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.List 07ae2acca6538aa0800bd0a993ac6ac1 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.Num 00bfaa7b2f9d6084913c0697a8a49ec8 import -/ base-4.9.1.0:Prelude 22dd289b8469a8fa8dc81cab7b237771 import -/ integer-gmp-1.0.0.1:GHC.Integer.Type 318df275d77dcdb18e0006d8d7870c2a import -/ Language.Fixpoint.Misc 268edc2be2657e56d9ac2e0e5f861c66 exports: 0d4209a369f77ae55113ca41b56281c2 count 3465de1600d6142a0b40ebd8679184c9 sortNub 642a4eda4245223ed5db9730a31eb8bf import -/ Language.Fixpoint.Types 09d1039f1e0058408506d58eee0982ca exports: 91181ff2c29316a0420a9031c7b2d4bd import -/ Language.Fixpoint.Types.Constraints dc475bd125456ae511f39eb7bfb576f7 GInfo 1052549cc559e08aaa78c218edda206c SimpC 422c859b64e365b196f8fd06ad8cb7f1 SubC ed16f1ec59060d74f74ea827928489f9 TaggedC 710144f9da9a9e879219a27a9c6dc76f _crhs 746ca2f97e781cb1955fd7640112b9a8 bs d267a9df5f80275fb39b5fc05f60d3f9 clhs 4cf40034a3d73fd78899b3581cd09a97 cm e96439d8256cfec0e43dbb4c8b7f9965 crhs 1e68f26339689c1f8619807c178004c5 qBody a90af993c8ca625414e8b90f88916f3f quals 733cbf41a4dbbd9b4564f52a0bd82386 slhs ff31f7ff76d5011e3329777d046753a8 srhs 6299a4aca5a3764628a25206cc77779a import -/ Language.Fixpoint.Types.Environments 39a7a5317852adad63623f9a402cc5a6 BindEnv 792d9eaa5d5c1843c39b7b64e5cd1dac beBinds 0907867d711aa08166613144dbfef14c import -/ Language.Fixpoint.Types.Names e10fad5e5b8ff170c535ac390b7d6df1 Symbol 48f09ac5554b5659507cdde0ca23f8ac import -/ Language.Fixpoint.Types.Refinements 14ae5428586db5cedff3d8f72f8648b7 EApp 242f67cc5b7496adee37b0324be59497 EBin b701dd2a71bce1eb343b2513e5d6fa48 ECon ab1ba7bb8f5af33c895526c1c056e7ff ECst 7679f212aeb5f0744769abe62a44ee1b EIte c6d70c8b2fac4c9992bb3fe089a9b464 ELam 20eee96d53677ca43811052ef690f968 ENeg fca8f0488c578d50ebb3086944afa95b ESym b05e53b59eecfe2f6d7c4b864a39af90 ETAbs cf486f62ca1036d64dac0b7fc30b355d ETApp 6f9fa64dc1ea94265346dee4dfbd1dd9 EVar 4ac413912c48a3e2b7f279c0abf0b81c Expr 7fb70fb47d0302cfb4b9c12c86306141 KVar 9a92033bfe21324e80629facb0f6357f PAll 5b5b161c8a455dff7c62b538ddd642db PAnd e4ddc2579168019e5d8a7240f883a96b PAtom 55a13458e0515551093b57ea202b6eef PExist 83d46b5b3ba4dfd16ed3ab8c4cdb6285 PGrad 1ba105909b1a27f382ef9e235a533976 PIff 26c8be80f88d825a6dec4e341889a1a3 PImp 58a478a071013ad73b32bb10517db0d2 PKVar 27549ccaacfa3dd875a070c6d85abc60 PNot c4eeca122c5c0a43c77041a865069326 POr 5047bfaf429ce9d92fe3d210e4c62b03 RR 770fb6f952861174841244857625a4cc Reft 0e78bf0338164597faa58ab74c6fcf68 Reft 7fb70fb47d0302cfb4b9c12c86306141 SortedReft 7fb70fb47d0302cfb4b9c12c86306141 Subst 7fb70fb47d0302cfb4b9c12c86306141 SymConst 2d8cc80e963ce7fc658d82e1df676d25 conjuncts 8b597424c017de26584204ed283dc3d9 sr_reft 4589b402dcbc851255ad92efc8f9fcc4 subst 7e8823041d8875dd250f4dd63b9bcae9 import -/ Language.Fixpoint.Types.Sorts b5018989427724a1db790152ee79cb6f FAbs 8aa258e1d4a21bcfa98339b6771fc61f FApp 7a29422ecfa9008e1b305cccc4f76b35 FFunc 724fb91b0715d4ded5b35408590658ef Sort 402c177fc699f05dd97dbf4130d9008b import -/ transformers-0.5.2.0@transformers-0.5.2.0:Control.Monad.Trans.State.Strict 978f397cc30fa26d55cf117e3751a6ed 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 import -/ unordered-containers-0.2.8.0@unordered-containers-0.2.8.0-1XEErQCPPPc2SEtcHHNx9o:Data.HashSet ee03eb1144d3c6624c9254dd24f4ef67 239f66d8996b0f6ab8aa800f771f8e14 $fMonoidMInt :: GHC.Base.Monoid Language.Fixpoint.Types.Visitor.MInt DFunId {- Strictness: m, Inline: [ALWAYS] CONLIKE, Unfolding: DFun:. @ Language.Fixpoint.Types.Visitor.MInt Language.Fixpoint.Types.Visitor.$fMonoidMInt_$cmempty Language.Fixpoint.Types.Visitor.$fMonoidMInt_$cmappend Language.Fixpoint.Types.Visitor.$fMonoidMInt_$cmconcat -} e9e01866826a2d59cf3b1fcef1378a8b $fMonoidMInt1 :: GHC.Integer.Type.Integer {- HasNoCafRefs, Unfolding: (0) -} 239f66d8996b0f6ab8aa800f771f8e14 $fMonoidMInt_$cmappend :: Language.Fixpoint.Types.Visitor.MInt -> Language.Fixpoint.Types.Visitor.MInt -> Language.Fixpoint.Types.Visitor.MInt {- Arity: 2, Strictness: , Unfolding: InlineRule (0, True, True) GHC.Integer.Type.plusInteger `cast` (Sym (Language.Fixpoint.Types.Visitor.N:MInt[0]) ->_R Sym (Language.Fixpoint.Types.Visitor.N:MInt[0]) ->_R Sym (Language.Fixpoint.Types.Visitor.N:MInt[0])) -} 239f66d8996b0f6ab8aa800f771f8e14 $fMonoidMInt_$cmconcat :: [Language.Fixpoint.Types.Visitor.MInt] -> Language.Fixpoint.Types.Visitor.MInt {- Arity: 1, Strictness: , Unfolding: (\ (eta :: [Language.Fixpoint.Types.Visitor.MInt]) -> Language.Fixpoint.Types.Visitor.$fMonoidMInt_go eta) -} 239f66d8996b0f6ab8aa800f771f8e14 $fMonoidMInt_$cmempty :: Language.Fixpoint.Types.Visitor.MInt {- Unfolding: InlineRule (0, True, True) Language.Fixpoint.Types.Visitor.$fMonoidMInt1 `cast` (Sym (Language.Fixpoint.Types.Visitor.N:MInt[0])) -} 239f66d8996b0f6ab8aa800f771f8e14 $fMonoidMInt_go :: [Language.Fixpoint.Types.Visitor.MInt] -> Language.Fixpoint.Types.Visitor.MInt {- Arity: 1, Strictness: -} 487d0150a1314871b7b84fc92411ac5c $fSymConstsExpr :: Language.Fixpoint.Types.Visitor.SymConsts Language.Fixpoint.Types.Refinements.Expr DFunId {- Arity: 1, HasNoCafRefs, Strictness: , Inline: INLINE (sat-args=0), Unfolding: InlineRule (0, False, True) Language.Fixpoint.Types.Visitor.$fSymConstsExpr_$csymConsts `cast` (Sym (Language.Fixpoint.Types.Visitor.N:SymConsts[0] _N)) -} 534bafecdf857b6e03e293bfc9c47cd2 $fSymConstsExpr1 :: Language.Fixpoint.Types.Visitor.Visitor [Language.Fixpoint.Types.Refinements.SymConst] () {- HasNoCafRefs, Strictness: m, Unfolding: (Language.Fixpoint.Types.Visitor.Visitor @ [Language.Fixpoint.Types.Refinements.SymConst] @ () (GHC.Base.const @ () @ Language.Fixpoint.Types.Refinements.Expr) (Language.Fixpoint.Types.Visitor.$fSymConstsExpr3 @ ()) Language.Fixpoint.Types.Visitor.$fSymConstsExpr2) -} 6bd819e595a458146e816882e24f11ce $fSymConstsExpr2 :: () -> Language.Fixpoint.Types.Refinements.Expr -> [Language.Fixpoint.Types.Refinements.SymConst] {- Arity: 2, HasNoCafRefs, Strictness: , Unfolding: InlineRule (2, True, False) (\ (ds :: ()) (ds1 :: Language.Fixpoint.Types.Refinements.Expr) -> case ds1 of wild { DEFAULT -> GHC.Types.[] @ Language.Fixpoint.Types.Refinements.SymConst Language.Fixpoint.Types.Refinements.ESym dt -> GHC.Types.: @ Language.Fixpoint.Types.Refinements.SymConst (Language.Fixpoint.Types.Refinements.SL dt) (GHC.Types.[] @ Language.Fixpoint.Types.Refinements.SymConst) }) -} c5a616a7064a949b78ce6c81118cf3a0 $fSymConstsExpr3 :: ctx -> Language.Fixpoint.Types.Refinements.Expr -> Language.Fixpoint.Types.Refinements.Expr {- Arity: 2, HasNoCafRefs, Strictness: , Unfolding: InlineRule (2, True, True) (\ @ ctx (ds :: ctx) (x :: Language.Fixpoint.Types.Refinements.Expr) -> x) -} 516542a685ca4c66e1b330cdd956807b $fSymConstsExpr_$csymConsts :: Language.Fixpoint.Types.Refinements.Expr -> [Language.Fixpoint.Types.Refinements.SymConst] {- Arity: 1, HasNoCafRefs, Strictness: , Unfolding: InlineRule (1, True, False) (\ (t :: Language.Fixpoint.Types.Refinements.Expr) -> case ((Language.Fixpoint.Types.Visitor.visitExpr @ [Language.Fixpoint.Types.Refinements.SymConst] @ () (GHC.Base.$fMonoid[] @ Language.Fixpoint.Types.Refinements.SymConst) Language.Fixpoint.Types.Visitor.$fSymConstsExpr1 GHC.Tuple.() t) `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] <[Language.Fixpoint.Types.Refinements.SymConst]>_N _R _N) (GHC.Types.[] @ Language.Fixpoint.Types.Refinements.SymConst)) `cast` (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Refinements.Expr, [Language.Fixpoint.Types.Refinements.SymConst])>_R) of wild { (,) ds1 y -> y }) -} 487d0150a1314871b7b84fc92411ac5c $fSymConstsGInfo :: Language.Fixpoint.Types.Visitor.SymConsts (c a) => Language.Fixpoint.Types.Visitor.SymConsts (Language.Fixpoint.Types.Constraints.GInfo c a) DFunId {- Arity: 2, HasNoCafRefs, Strictness: , Inline: INLINE (sat-args=0), Unfolding: InlineRule (1, False, True) Language.Fixpoint.Types.Visitor.$fSymConstsGInfo_$csymConsts `cast` (forall (c :: <* -> *>_N) (a :: <*>_N). _R ->_R Sym (Language.Fixpoint.Types.Visitor.N:SymConsts[0] _N)) -} 487d0150a1314871b7b84fc92411ac5c $fSymConstsGInfo_$csymConsts :: Language.Fixpoint.Types.Visitor.SymConsts (c a) => Language.Fixpoint.Types.Constraints.GInfo c a -> [Language.Fixpoint.Types.Refinements.SymConst] {- Arity: 2, HasNoCafRefs, Strictness: , Inline: INLINE[0], Unfolding: InlineRule (2, True, False) (\ @ (c :: * -> *) @ a (w :: Language.Fixpoint.Types.Visitor.SymConsts (c a)) (w1 :: Language.Fixpoint.Types.Constraints.GInfo c a) -> case w1 of ww { Language.Fixpoint.Types.Constraints.FI ww1 ww2 ww3 ww4 ww5 ww6 ww7 ww8 ww9 ww10 ww11 -> Language.Fixpoint.Types.Visitor.$w$csymConsts @ c @ a w ww1 ww3 ww7 }) -} 487d0150a1314871b7b84fc92411ac5c $fSymConstsReft :: Language.Fixpoint.Types.Visitor.SymConsts Language.Fixpoint.Types.Refinements.Reft DFunId {- Arity: 1, HasNoCafRefs, Strictness: , Inline: INLINE (sat-args=0), Unfolding: InlineRule (0, False, True) Language.Fixpoint.Types.Visitor.$fSymConstsReft_$csymConsts `cast` (Sym (Language.Fixpoint.Types.Visitor.N:SymConsts[0] _N)) -} f930c143a85c412dc0840fca7850d018 $fSymConstsReft_$csymConsts :: Language.Fixpoint.Types.Refinements.Reft -> [Language.Fixpoint.Types.Refinements.SymConst] {- Arity: 1, HasNoCafRefs, Strictness: , Unfolding: InlineRule (1, True, False) (\ (ds :: Language.Fixpoint.Types.Refinements.Reft) -> case ds `cast` (Language.Fixpoint.Types.Refinements.N:Reft[0]) of wild { (,) ds1 ra -> case ((Language.Fixpoint.Types.Visitor.visitExpr @ [Language.Fixpoint.Types.Refinements.SymConst] @ () (GHC.Base.$fMonoid[] @ Language.Fixpoint.Types.Refinements.SymConst) Language.Fixpoint.Types.Visitor.$fSymConstsExpr1 GHC.Tuple.() ra) `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] <[Language.Fixpoint.Types.Refinements.SymConst]>_N _R _N) (GHC.Types.[] @ Language.Fixpoint.Types.Refinements.SymConst)) `cast` (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Refinements.Expr, [Language.Fixpoint.Types.Refinements.SymConst])>_R) of wild1 { (,) ds2 y -> y } }) -} 487d0150a1314871b7b84fc92411ac5c $fSymConstsSimpC :: Language.Fixpoint.Types.Visitor.SymConsts (Language.Fixpoint.Types.Constraints.SimpC a) DFunId {- Arity: 1, HasNoCafRefs, Strictness: , Inline: INLINE (sat-args=0), Unfolding: InlineRule (0, False, True) Language.Fixpoint.Types.Visitor.$fSymConstsSimpC_$csymConsts `cast` (forall (a :: <*>_N). Sym (Language.Fixpoint.Types.Visitor.N:SymConsts[0] _N)) -} 84c34d8bc68cb30547aafa98f7c2cad7 $fSymConstsSimpC_$csymConsts :: Language.Fixpoint.Types.Constraints.SimpC a -> [Language.Fixpoint.Types.Refinements.SymConst] {- Arity: 1, HasNoCafRefs, Strictness: , Unfolding: (\ @ a (c :: Language.Fixpoint.Types.Constraints.SimpC a) -> case ((Language.Fixpoint.Types.Visitor.visitExpr @ [Language.Fixpoint.Types.Refinements.SymConst] @ () (GHC.Base.$fMonoid[] @ Language.Fixpoint.Types.Refinements.SymConst) Language.Fixpoint.Types.Visitor.$fSymConstsExpr1 GHC.Tuple.() (Language.Fixpoint.Types.Constraints._crhs @ a c)) `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] <[Language.Fixpoint.Types.Refinements.SymConst]>_N _R _N) (GHC.Types.[] @ Language.Fixpoint.Types.Refinements.SymConst)) `cast` (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Refinements.Expr, [Language.Fixpoint.Types.Refinements.SymConst])>_R) of wild { (,) ds1 y -> y }) -} 487d0150a1314871b7b84fc92411ac5c $fSymConstsSizedEnv :: Language.Fixpoint.Types.Visitor.SymConsts Language.Fixpoint.Types.Environments.BindEnv DFunId {- Arity: 1, HasNoCafRefs, Strictness: , Inline: INLINE (sat-args=0), Unfolding: InlineRule (0, False, True) Language.Fixpoint.Types.Visitor.$fSymConstsSizedEnv_$csymConsts `cast` (Sym (Language.Fixpoint.Types.Visitor.N:SymConsts[0] _N)) -} c1f68ca31106b2b5d3d0aa4b3684f56f $fSymConstsSizedEnv_$csymConsts :: Language.Fixpoint.Types.Environments.BindEnv -> [Language.Fixpoint.Types.Refinements.SymConst] {- Arity: 1, HasNoCafRefs, Strictness: , Inline: INLINE[0], Unfolding: InlineRule (1, True, False) (\ (w :: Language.Fixpoint.Types.Environments.BindEnv) -> case w of ww { Language.Fixpoint.Types.Environments.BE ww1 ww2 -> case ww2 of wild { Data.HashMap.Base.Empty -> GHC.Types.[] @ Language.Fixpoint.Types.Refinements.SymConst Data.HashMap.Base.BitmapIndexed dt dt1 -> Language.Fixpoint.Types.Visitor.$wgo3 (Data.HashMap.Array.Array @ (Data.HashMap.Base.HashMap Language.Fixpoint.Types.Environments.BindId (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft)) dt1) (GHC.Prim.sizeofArray# @ (Data.HashMap.Base.HashMap Language.Fixpoint.Types.Environments.BindId (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft)) dt1) 0# (GHC.Types.[] @ Language.Fixpoint.Types.Refinements.SymConst) Data.HashMap.Base.Leaf dt dt1 dt2 -> case dt2 of ww3 { (,) ww4 ww5 -> case ww5 of ww6 { Language.Fixpoint.Types.Refinements.RR ww7 ww8 -> case ww8 `cast` (Language.Fixpoint.Types.Refinements.N:Reft[0]) of ww9 { (,) ww10 ww11 -> case ((Language.Fixpoint.Types.Visitor.visitExpr @ [Language.Fixpoint.Types.Refinements.SymConst] @ () (GHC.Base.$fMonoid[] @ Language.Fixpoint.Types.Refinements.SymConst) Language.Fixpoint.Types.Visitor.$fSymConstsExpr1 GHC.Tuple.() ww11) `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] <[Language.Fixpoint.Types.Refinements.SymConst]>_N _R _N) (GHC.Types.[] @ Language.Fixpoint.Types.Refinements.SymConst)) `cast` (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Refinements.Expr, [Language.Fixpoint.Types.Refinements.SymConst])>_R) of wild1 { (,) ds1 y -> GHC.Base.++ @ Language.Fixpoint.Types.Refinements.SymConst y (GHC.Types.[] @ Language.Fixpoint.Types.Refinements.SymConst) } } } } Data.HashMap.Base.Full dt -> Language.Fixpoint.Types.Visitor.$wgo1 (Data.HashMap.Array.Array @ (Data.HashMap.Base.HashMap Language.Fixpoint.Types.Environments.BindId (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft)) dt) (GHC.Prim.sizeofArray# @ (Data.HashMap.Base.HashMap Language.Fixpoint.Types.Environments.BindId (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft)) dt) 0# (GHC.Types.[] @ Language.Fixpoint.Types.Refinements.SymConst) Data.HashMap.Base.Collision dt dt1 -> Language.Fixpoint.Types.Visitor.$wgo2 (Data.HashMap.Array.Array @ (Data.HashMap.Base.Leaf Language.Fixpoint.Types.Environments.BindId (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft)) dt1) (GHC.Prim.sizeofArray# @ (Data.HashMap.Base.Leaf Language.Fixpoint.Types.Environments.BindId (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft)) dt1) 0# (GHC.Types.[] @ Language.Fixpoint.Types.Refinements.SymConst) } }) -} 487d0150a1314871b7b84fc92411ac5c $fSymConstsSortedReft :: Language.Fixpoint.Types.Visitor.SymConsts Language.Fixpoint.Types.Refinements.SortedReft DFunId {- Arity: 1, HasNoCafRefs, Strictness: , Inline: INLINE (sat-args=0), Unfolding: InlineRule (0, False, True) Language.Fixpoint.Types.Visitor.$fSymConstsSortedReft_$csymConsts `cast` (Sym (Language.Fixpoint.Types.Visitor.N:SymConsts[0] _N)) -} 3627d0db5bea60829c240b61a5a7e582 $fSymConstsSortedReft_$csymConsts :: Language.Fixpoint.Types.Refinements.SortedReft -> [Language.Fixpoint.Types.Refinements.SymConst] {- Arity: 1, HasNoCafRefs, Strictness: , Inline: INLINE[0], Unfolding: InlineRule (1, True, False) (\ (w :: Language.Fixpoint.Types.Refinements.SortedReft) -> case w of ww { Language.Fixpoint.Types.Refinements.RR ww1 ww2 -> case ww2 `cast` (Language.Fixpoint.Types.Refinements.N:Reft[0]) of ww3 { (,) ww4 ww5 -> Language.Fixpoint.Types.Visitor.$w$csymConsts1 ww5 } }) -} 487d0150a1314871b7b84fc92411ac5c $fSymConstsSubC :: Language.Fixpoint.Types.Visitor.SymConsts (Language.Fixpoint.Types.Constraints.SubC a) DFunId {- Arity: 1, HasNoCafRefs, Strictness: , Inline: INLINE (sat-args=0), Unfolding: InlineRule (0, False, True) Language.Fixpoint.Types.Visitor.$fSymConstsSubC_$csymConsts `cast` (forall (a :: <*>_N). Sym (Language.Fixpoint.Types.Visitor.N:SymConsts[0] _N)) -} 03a0fd77185e0c75587e7d5c9f02b1a7 $fSymConstsSubC_$csymConsts :: Language.Fixpoint.Types.Constraints.SubC a -> [Language.Fixpoint.Types.Refinements.SymConst] {- Arity: 1, HasNoCafRefs, Strictness: , Inline: INLINE[0], Unfolding: InlineRule (1, True, False) (\ @ a (w :: Language.Fixpoint.Types.Constraints.SubC a) -> case w of ww { Language.Fixpoint.Types.Constraints.SubC ww1 ww2 ww3 ww4 ww5 ww6 -> case ww2 of ww7 { Language.Fixpoint.Types.Refinements.RR ww8 ww9 -> case ww9 `cast` (Language.Fixpoint.Types.Refinements.N:Reft[0]) of ww10 { (,) ww11 ww12 -> case ww3 of ww13 { Language.Fixpoint.Types.Refinements.RR ww14 ww15 -> Language.Fixpoint.Types.Visitor.$w$csymConsts2 @ a ww12 ww15 } } } }) -} b5488c516ee98083465a9979b0edbf0b $fVisitable(,) :: Language.Fixpoint.Types.Visitor.Visitable (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft) DFunId {- Arity: 4, HasNoCafRefs, Strictness: , Inline: INLINE (sat-args=0), Unfolding: InlineRule (0, False, True) Language.Fixpoint.Types.Visitor.$fVisitable(,)_$cvisit `cast` (Sym (Language.Fixpoint.Types.Visitor.N:Visitable[0] <(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft)>_N)) -} 891d7f8497f028d649d284e0c730328a $fVisitable(,)_$cvisit :: GHC.Base.Monoid a => Language.Fixpoint.Types.Visitor.Visitor a c -> c -> (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft) -> Language.Fixpoint.Types.Visitor.VisitM a (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft) {- Arity: 4, HasNoCafRefs, Strictness: , Inline: INLINE[0], Unfolding: InlineRule (4, True, False) (\ @ a @ c (w :: GHC.Base.Monoid a) (w1 :: Language.Fixpoint.Types.Visitor.Visitor a c) (w2 :: c) (w3 :: (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft)) -> case w3 of ww { (,) ww1 ww2 -> Language.Fixpoint.Types.Visitor.$w$cvisit @ a @ c w w1 w2 ww1 ww2 }) -} b5488c516ee98083465a9979b0edbf0b $fVisitableExpr :: Language.Fixpoint.Types.Visitor.Visitable Language.Fixpoint.Types.Refinements.Expr DFunId {- Arity: 4, HasNoCafRefs, Strictness: , Inline: INLINE (sat-args=0), Unfolding: InlineRule (0, False, True) Language.Fixpoint.Types.Visitor.visitExpr `cast` (Sym (Language.Fixpoint.Types.Visitor.N:Visitable[0] _N)) -} b5488c516ee98083465a9979b0edbf0b $fVisitableGInfo :: Language.Fixpoint.Types.Visitor.Visitable (c a) => Language.Fixpoint.Types.Visitor.Visitable (Language.Fixpoint.Types.Constraints.GInfo c a) DFunId {- Arity: 5, Strictness: , Inline: INLINE (sat-args=0), Unfolding: InlineRule (1, False, True) Language.Fixpoint.Types.Visitor.$fVisitableGInfo_$cvisit `cast` (forall (c :: <* -> *>_N) (a :: <*>_N). _R ->_R Sym (Language.Fixpoint.Types.Visitor.N:Visitable[0] _N)) -} b5488c516ee98083465a9979b0edbf0b $fVisitableGInfo_$cvisit :: Language.Fixpoint.Types.Visitor.Visitable (c a) => forall a1 c1. GHC.Base.Monoid a1 => Language.Fixpoint.Types.Visitor.Visitor a1 c1 -> c1 -> Language.Fixpoint.Types.Constraints.GInfo c a -> Language.Fixpoint.Types.Visitor.VisitM a1 (Language.Fixpoint.Types.Constraints.GInfo c a) {- Arity: 5, Strictness: , Unfolding: (\ @ (c :: * -> *) @ a ($dVisitable :: Language.Fixpoint.Types.Visitor.Visitable (c a)) @ a1 @ c1 ($dMonoid :: GHC.Base.Monoid a1) (v :: Language.Fixpoint.Types.Visitor.Visitor a1 c1) (c2 :: c1) (x :: Language.Fixpoint.Types.Constraints.GInfo c a) -> let { lvl3 :: Language.Fixpoint.Types.Visitor.VisitM a1 Language.Fixpoint.Types.Environments.BindEnv = case x of wild { Language.Fixpoint.Types.Constraints.FI ds2 ds3 ds4 ds5 ds6 ds7 ds8 ds9 ds10 ds11 ds12 -> case ds4 of ww { Language.Fixpoint.Types.Environments.BE ww1 ww2 -> let { m1 :: Control.Monad.Trans.State.Strict.StateT a1 Data.Functor.Identity.Identity (Language.Fixpoint.Types.Environments.BindMap (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft)) = Data.HashMap.Base.$fTraversableHashMap_$ctraverse @ GHC.Types.Int @ (Control.Monad.Trans.State.Strict.StateT a1 Data.Functor.Identity.Identity) @ (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft) @ (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft) (Language.Fixpoint.Types.Visitor.$fVisitableGInfo_$s$fApplicativeStateT @ a1) (Language.Fixpoint.Types.Visitor.$fVisitable(,)_$cvisit @ a1 @ c1 $dMonoid v c2) ww2 } in (\ (s1 :: a1) -> case (m1 `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N) s1) `cast` (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Environments.BindMap (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft), a1)>_R) of wild1 { (,) a2 s' -> (case a2 of dt { DEFAULT -> Language.Fixpoint.Types.Environments.BE @ (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft) ww1 dt }, s') `cast` (Sym (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Environments.SizedEnv (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft), a1)>_R)) }) `cast` (Sym (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N)) } } } in let { m1 :: Control.Monad.Trans.State.Strict.StateT a1 Data.Functor.Identity.Identity (Data.HashMap.Base.HashMap Language.Fixpoint.Types.Constraints.SubcId (c a)) = Data.HashMap.Base.$fTraversableHashMap_$ctraverse @ GHC.Integer.Type.Integer @ (Control.Monad.Trans.State.Strict.StateT a1 Data.Functor.Identity.Identity) @ (c a) @ (c a) (Language.Fixpoint.Types.Visitor.$fVisitableGInfo_$s$fApplicativeStateT @ a1) ($dVisitable `cast` (Language.Fixpoint.Types.Visitor.N:Visitable[0] _N) @ a1 @ c1 $dMonoid v c2) (Language.Fixpoint.Types.Constraints.cm @ c @ a x) } in (\ (s1 :: a1) -> case (m1 `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N) s1) `cast` (Data.Functor.Identity.N:Identity[0] <(Data.HashMap.Base.HashMap Language.Fixpoint.Types.Constraints.SubcId (c a), a1)>_R) of wild { (,) a2 s' -> case (lvl3 `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N) s') `cast` (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Environments.BindEnv, a1)>_R) of wild1 { (,) a3 s'1 -> (case x of wild2 { Language.Fixpoint.Types.Constraints.FI ds ds1 ds2 ds3 ds4 ds5 ds6 ds7 ds8 ds9 ds10 -> case a2 of dt { DEFAULT -> case a3 of dt1 { Language.Fixpoint.Types.Environments.BE ipv ipv1 -> Language.Fixpoint.Types.Constraints.FI @ c @ a dt ds1 dt1 ds3 ds4 ds5 ds6 ds7 ds8 ds9 ds10 } } }, s'1) `cast` (Sym (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Constraints.GInfo c a, a1)>_R)) } }) `cast` (Sym (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N))) -} 369c1e9c3b20950733d280c6c9f7164a $fVisitableGInfo_$dFunctor :: GHC.Base.Functor Data.Functor.Identity.Identity {- Strictness: m, Unfolding: InlineRule (0, True, True) Data.Functor.Identity.$fFunctorIdentity -} 10397551d38f3698be57f540faa7f747 $fVisitableGInfo_$s$fApplicativeStateT :: GHC.Base.Applicative (Control.Monad.Trans.State.Strict.StateT s Data.Functor.Identity.Identity) {- HasNoCafRefs, Strictness: m, Inline: [ALWAYS] CONLIKE, Unfolding: DFun: @ s. @ (Control.Monad.Trans.State.Strict.StateT s Data.Functor.Identity.Identity) (Language.Fixpoint.Types.Visitor.$fVisitableGInfo_$s$fApplicativeStateT_$cp1Applicative @ s) (Language.Fixpoint.Types.Visitor.$fVisitableGInfo_$s$fApplicativeStateT_$cpure @ s) (Language.Fixpoint.Types.Visitor.$fVisitableGInfo_$s$fApplicativeStateT_$c<*> @ s) (Control.Monad.Trans.State.Strict.$fApplicativeStateT_$c*> @ Data.Functor.Identity.Identity @ s Language.Fixpoint.Types.Visitor.$fVisitableGInfo_$dFunctor Data.Functor.Identity.$fMonadIdentity) (Control.Monad.Trans.State.Strict.$fApplicativeStateT_$c<* @ Data.Functor.Identity.Identity @ s Language.Fixpoint.Types.Visitor.$fVisitableGInfo_$dFunctor Data.Functor.Identity.$fMonadIdentity) -} 941777129d256377b0bd450134489df8 $fVisitableGInfo_$s$fApplicativeStateT_$c<*> :: Control.Monad.Trans.State.Strict.StateT s Data.Functor.Identity.Identity (a -> b) -> Control.Monad.Trans.State.Strict.StateT s Data.Functor.Identity.Identity a -> Control.Monad.Trans.State.Strict.StateT s Data.Functor.Identity.Identity b {- Arity: 3, HasNoCafRefs, Strictness: m, Inline: INLINE (sat-args=2), Unfolding: InlineRule (2, False, False) (\ @ s @ a @ b (ds :: Control.Monad.Trans.State.Strict.StateT s Data.Functor.Identity.Identity (a -> b)) (ds1 :: Control.Monad.Trans.State.Strict.StateT s Data.Functor.Identity.Identity a) -> GHC.Base.$ @ 'GHC.Types.PtrRepLifted @ (s -> Data.Functor.Identity.Identity (b, s)) @ (Control.Monad.Trans.State.Strict.StateT s Data.Functor.Identity.Identity b) (\ (tpl :: s -> Data.Functor.Identity.Identity (b, s)) -> tpl) `cast` ( Data.Functor.Identity.Identity (b, s)>_R ->_R Sym (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N)) (\ (s1 :: s) -> Data.Functor.Identity.$fMonadIdentity_$c>>= @ (a -> b, s) @ (b, s) (ds `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R b>_N) s1) (\ (ds2 :: (a -> b, s))[OneShot] -> case ds2 of wild { (,) f s' -> Data.Functor.Identity.$fMonadIdentity_$c>>= @ (a, s) @ (b, s) (ds1 `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N) s') (\ (ds3 :: (a, s))[OneShot] -> case ds3 of wild1 { (,) x s'' -> Data.Functor.Identity.$fApplicativeIdentity_$cpure @ (b, s) (f x, s'') }) }))) -} ab6aecfae3daed6e48bc2fc7b33bf451 $fVisitableGInfo_$s$fApplicativeStateT_$cp1Applicative :: GHC.Base.Functor (Control.Monad.Trans.State.Strict.StateT s Data.Functor.Identity.Identity) {- Strictness: m, Unfolding: InlineRule (0, True, True) Language.Fixpoint.Types.Visitor.$fVisitableGInfo_$s$fFunctorStateT -} 9cd83555d6e56a29e98fdb934775e635 $fVisitableGInfo_$s$fApplicativeStateT_$cpure :: a -> Control.Monad.Trans.State.Strict.StateT s Data.Functor.Identity.Identity a {- Arity: 2, HasNoCafRefs, Strictness: m, Inline: INLINE (sat-args=1), Unfolding: InlineRule (1, False, False) (\ @ s @ a (a1 :: a) -> GHC.Base.$ @ 'GHC.Types.PtrRepLifted @ (s -> Data.Functor.Identity.Identity (a, s)) @ (Control.Monad.Trans.State.Strict.StateT s Data.Functor.Identity.Identity a) (\ (tpl :: s -> Data.Functor.Identity.Identity (a, s)) -> tpl) `cast` ( Data.Functor.Identity.Identity (a, s)>_R ->_R Sym (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N)) (\ (s1 :: s) -> Data.Functor.Identity.$fApplicativeIdentity_$cpure @ (a, s) (a1, s1))) -} 8c63bc2e083bda6ae5e72e0eaa633f23 $fVisitableGInfo_$s$fFunctorStateT :: GHC.Base.Functor (Control.Monad.Trans.State.Strict.StateT s Data.Functor.Identity.Identity) {- HasNoCafRefs, Strictness: m, Inline: [ALWAYS] CONLIKE, Unfolding: DFun: @ s. @ (Control.Monad.Trans.State.Strict.StateT s Data.Functor.Identity.Identity) (Language.Fixpoint.Types.Visitor.$fVisitableGInfo_$s$fFunctorStateT_$cfmap @ s) (Control.Monad.Trans.State.Strict.$fFunctorStateT_$c<$ @ Data.Functor.Identity.Identity @ s Data.Functor.Identity.$fFunctorIdentity) -} 9d001a1891c056e4640345b274523d7f $fVisitableGInfo_$s$fFunctorStateT_$cfmap :: (a -> b) -> Control.Monad.Trans.State.Strict.StateT s Data.Functor.Identity.Identity a -> Control.Monad.Trans.State.Strict.StateT s Data.Functor.Identity.Identity b {- Arity: 3, HasNoCafRefs, Strictness: m, Inline: INLINE (sat-args=2), Unfolding: InlineRule (2, False, False) (\ @ s @ a @ b (f :: a -> b) (m1 :: Control.Monad.Trans.State.Strict.StateT s Data.Functor.Identity.Identity a) -> GHC.Base.$ @ 'GHC.Types.PtrRepLifted @ (s -> Data.Functor.Identity.Identity (b, s)) @ (Control.Monad.Trans.State.Strict.StateT s Data.Functor.Identity.Identity b) (\ (tpl :: s -> Data.Functor.Identity.Identity (b, s)) -> tpl) `cast` ( Data.Functor.Identity.Identity (b, s)>_R ->_R Sym (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N)) (\ (s1 :: s) -> GHC.Base.$ @ 'GHC.Types.PtrRepLifted @ (Data.Functor.Identity.Identity (a, s)) @ (Data.Functor.Identity.Identity (b, s)) (Data.Functor.Identity.$fFunctorIdentity_$cfmap @ (a, s) @ (b, s) (\ (ds :: (a, s)) -> case ds of wild { (,) a1 s' -> (f a1, s') })) (Control.Monad.Trans.State.Strict.runStateT @ s @ Data.Functor.Identity.Identity @ a m1 s1))) -} b5488c516ee98083465a9979b0edbf0b $fVisitableReft :: Language.Fixpoint.Types.Visitor.Visitable Language.Fixpoint.Types.Refinements.Reft DFunId {- Arity: 4, HasNoCafRefs, Strictness: , Inline: INLINE (sat-args=0), Unfolding: InlineRule (0, False, True) Language.Fixpoint.Types.Visitor.$fVisitableReft_$cvisit `cast` (Sym (Language.Fixpoint.Types.Visitor.N:Visitable[0] _N)) -} 857bbeaadac923e3c23b71e66f56c039 $fVisitableReft_$cvisit :: GHC.Base.Monoid a => Language.Fixpoint.Types.Visitor.Visitor a c -> c -> Language.Fixpoint.Types.Refinements.Reft -> Language.Fixpoint.Types.Visitor.VisitM a Language.Fixpoint.Types.Refinements.Reft {- Arity: 4, HasNoCafRefs, Strictness: , Inline: INLINE[0], Unfolding: InlineRule (4, True, False) (\ @ a @ c (w :: GHC.Base.Monoid a) (w1 :: Language.Fixpoint.Types.Visitor.Visitor a c) (w2 :: c) (w3 :: Language.Fixpoint.Types.Refinements.Reft) -> case w3 `cast` (Language.Fixpoint.Types.Refinements.N:Reft[0]) of ww { (,) ww1 ww2 -> Language.Fixpoint.Types.Visitor.$w$cvisit1 @ a @ c w w1 w2 ww1 ww2 }) -} b5488c516ee98083465a9979b0edbf0b $fVisitableSimpC :: Language.Fixpoint.Types.Visitor.Visitable (Language.Fixpoint.Types.Constraints.SimpC a) DFunId {- Arity: 4, HasNoCafRefs, Strictness: , Inline: INLINE (sat-args=0), Unfolding: InlineRule (0, False, True) Language.Fixpoint.Types.Visitor.$fVisitableSimpC_$cvisit `cast` (forall (a :: <*>_N). Sym (Language.Fixpoint.Types.Visitor.N:Visitable[0] _N)) -} 0feb24517da14e060a5124ba3e31b37a $fVisitableSimpC_$cvisit :: GHC.Base.Monoid a1 => Language.Fixpoint.Types.Visitor.Visitor a1 c -> c -> Language.Fixpoint.Types.Constraints.SimpC a -> Language.Fixpoint.Types.Visitor.VisitM a1 (Language.Fixpoint.Types.Constraints.SimpC a) {- Arity: 4, HasNoCafRefs, Strictness: , Unfolding: (\ @ a @ a1 @ c ($dMonoid :: GHC.Base.Monoid a1) (v :: Language.Fixpoint.Types.Visitor.Visitor a1 c) (c1 :: c) (x :: Language.Fixpoint.Types.Constraints.SimpC a) -> let { m1 :: Control.Monad.Trans.State.Strict.StateT a1 Data.Functor.Identity.Identity Language.Fixpoint.Types.Refinements.Expr = Language.Fixpoint.Types.Visitor.visitExpr @ a1 @ c $dMonoid v c1 (Language.Fixpoint.Types.Constraints._crhs @ a x) } in (\ (s1 :: a1) -> case (m1 `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N) s1) `cast` (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Refinements.Expr, a1)>_R) of wild { (,) a2 s' -> (case x of wild1 { Language.Fixpoint.Types.Constraints.SimpC ds ds1 ds2 ds3 ds4 -> case a2 of dt { DEFAULT -> Language.Fixpoint.Types.Constraints.SimpC @ a ds dt ds2 ds3 ds4 } }, s') `cast` (Sym (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Constraints.SimpC a, a1)>_R)) }) `cast` (Sym (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N))) -} b5488c516ee98083465a9979b0edbf0b $fVisitableSizedEnv :: Language.Fixpoint.Types.Visitor.Visitable Language.Fixpoint.Types.Environments.BindEnv DFunId {- Arity: 4, Strictness: , Inline: INLINE (sat-args=0), Unfolding: InlineRule (0, False, True) Language.Fixpoint.Types.Visitor.$fVisitableSizedEnv_$cvisit `cast` (Sym (Language.Fixpoint.Types.Visitor.N:Visitable[0] _N)) -} 1de905c2ed6a2dff86b6e1fa2161d904 $fVisitableSizedEnv_$cvisit :: GHC.Base.Monoid a => Language.Fixpoint.Types.Visitor.Visitor a c -> c -> Language.Fixpoint.Types.Environments.BindEnv -> Language.Fixpoint.Types.Visitor.VisitM a Language.Fixpoint.Types.Environments.BindEnv {- Arity: 4, Strictness: , Inline: INLINE[0], Unfolding: InlineRule (4, True, False) (\ @ a @ c (w :: GHC.Base.Monoid a) (w1 :: Language.Fixpoint.Types.Visitor.Visitor a c) (w2 :: c) (w3 :: Language.Fixpoint.Types.Environments.BindEnv) -> case w3 of ww { Language.Fixpoint.Types.Environments.BE ww1 ww2 -> Language.Fixpoint.Types.Visitor.$w$cvisit2 @ a @ c w w1 w2 ww1 ww2 }) -} b5488c516ee98083465a9979b0edbf0b $fVisitableSortedReft :: Language.Fixpoint.Types.Visitor.Visitable Language.Fixpoint.Types.Refinements.SortedReft DFunId {- Arity: 4, HasNoCafRefs, Strictness: , Inline: INLINE (sat-args=0), Unfolding: InlineRule (0, False, True) Language.Fixpoint.Types.Visitor.$fVisitableSortedReft_$cvisit `cast` (Sym (Language.Fixpoint.Types.Visitor.N:Visitable[0] _N)) -} 26f2beadcdba00d07588333a8f0a9695 $fVisitableSortedReft_$cvisit :: GHC.Base.Monoid a => Language.Fixpoint.Types.Visitor.Visitor a c -> c -> Language.Fixpoint.Types.Refinements.SortedReft -> Language.Fixpoint.Types.Visitor.VisitM a Language.Fixpoint.Types.Refinements.SortedReft {- Arity: 4, HasNoCafRefs, Strictness: , Inline: INLINE[0], Unfolding: InlineRule (4, True, False) (\ @ a @ c (w :: GHC.Base.Monoid a) (w1 :: Language.Fixpoint.Types.Visitor.Visitor a c) (w2 :: c) (w3 :: Language.Fixpoint.Types.Refinements.SortedReft) -> case w3 of ww { Language.Fixpoint.Types.Refinements.RR ww1 ww2 -> case ww2 `cast` (Language.Fixpoint.Types.Refinements.N:Reft[0]) of ww3 { (,) ww4 ww5 -> let { m1 :: Control.Monad.Trans.State.Strict.StateT a Data.Functor.Identity.Identity Language.Fixpoint.Types.Refinements.Expr = Language.Fixpoint.Types.Visitor.visitExpr @ a @ c w w1 w2 ww5 } in (\ (s1 :: a) -> case (m1 `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N) s1) `cast` (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Refinements.Expr, a)>_R) of wild { (,) a1 s' -> (Language.Fixpoint.Types.Refinements.RR ww1 (ww4, a1) `cast` (Sym (Language.Fixpoint.Types.Refinements.N:Reft[0])), s') `cast` (Sym (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Refinements.SortedReft, a)>_R)) }) `cast` (Sym (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N)) } }) -} b5488c516ee98083465a9979b0edbf0b $fVisitableSubC :: Language.Fixpoint.Types.Visitor.Visitable (Language.Fixpoint.Types.Constraints.SubC a) DFunId {- Arity: 4, HasNoCafRefs, Strictness: , Inline: INLINE (sat-args=0), Unfolding: InlineRule (0, False, True) Language.Fixpoint.Types.Visitor.$fVisitableSubC_$cvisit `cast` (forall (a :: <*>_N). Sym (Language.Fixpoint.Types.Visitor.N:Visitable[0] _N)) -} 0c0716cbd574c4373a814ee1b99576d1 $fVisitableSubC_$cvisit :: GHC.Base.Monoid a1 => Language.Fixpoint.Types.Visitor.Visitor a1 c -> c -> Language.Fixpoint.Types.Constraints.SubC a -> Language.Fixpoint.Types.Visitor.VisitM a1 (Language.Fixpoint.Types.Constraints.SubC a) {- Arity: 4, HasNoCafRefs, Strictness: , Unfolding: (\ @ a @ a1 @ c ($dMonoid :: GHC.Base.Monoid a1) (v :: Language.Fixpoint.Types.Visitor.Visitor a1 c) (c1 :: c) (x :: Language.Fixpoint.Types.Constraints.SubC a) -> let { lvl3 :: Language.Fixpoint.Types.Visitor.VisitM a1 Language.Fixpoint.Types.Refinements.SortedReft = case x of wild { Language.Fixpoint.Types.Constraints.SubC ds2 ds3 ds4 ds5 ds6 ds7 -> case ds4 of ww { Language.Fixpoint.Types.Refinements.RR ww1 ww2 -> case ww2 `cast` (Language.Fixpoint.Types.Refinements.N:Reft[0]) of ww3 { (,) ww4 ww5 -> let { m1 :: Control.Monad.Trans.State.Strict.StateT a1 Data.Functor.Identity.Identity Language.Fixpoint.Types.Refinements.Expr = Language.Fixpoint.Types.Visitor.visitExpr @ a1 @ c $dMonoid v c1 ww5 } in (\ (s1 :: a1) -> case (m1 `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N) s1) `cast` (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Refinements.Expr, a1)>_R) of wild1 { (,) a2 s' -> (Language.Fixpoint.Types.Refinements.RR ww1 (ww4, a2) `cast` (Sym (Language.Fixpoint.Types.Refinements.N:Reft[0])), s') `cast` (Sym (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Refinements.SortedReft, a1)>_R)) }) `cast` (Sym (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N)) } } } } in let { m1 :: Control.Monad.Trans.State.Strict.StateT a1 Data.Functor.Identity.Identity Language.Fixpoint.Types.Refinements.SortedReft = case x of wild { Language.Fixpoint.Types.Constraints.SubC ds2 ds3 ds4 ds5 ds6 ds7 -> case ds3 of ww { Language.Fixpoint.Types.Refinements.RR ww1 ww2 -> case ww2 `cast` (Language.Fixpoint.Types.Refinements.N:Reft[0]) of ww3 { (,) ww4 ww5 -> let { m2 :: Control.Monad.Trans.State.Strict.StateT a1 Data.Functor.Identity.Identity Language.Fixpoint.Types.Refinements.Expr = Language.Fixpoint.Types.Visitor.visitExpr @ a1 @ c $dMonoid v c1 ww5 } in (\ (s1 :: a1) -> case (m2 `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N) s1) `cast` (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Refinements.Expr, a1)>_R) of wild1 { (,) a2 s' -> (Language.Fixpoint.Types.Refinements.RR ww1 (ww4, a2) `cast` (Sym (Language.Fixpoint.Types.Refinements.N:Reft[0])), s') `cast` (Sym (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Refinements.SortedReft, a1)>_R)) }) `cast` (Sym (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N)) } } } } in (\ (s1 :: a1) -> case (m1 `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N) s1) `cast` (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Refinements.SortedReft, a1)>_R) of wild { (,) a2 s' -> case (lvl3 `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N) s') `cast` (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Refinements.SortedReft, a1)>_R) of wild1 { (,) a3 s'1 -> (case x of wild2 { Language.Fixpoint.Types.Constraints.SubC ds ds1 ds2 ds3 ds4 ds5 -> case a2 of dt { Language.Fixpoint.Types.Refinements.RR ipv ipv1 -> case a3 of dt1 { Language.Fixpoint.Types.Refinements.RR ipv2 ipv3 -> Language.Fixpoint.Types.Constraints.SubC @ a ds dt dt1 ds3 ds4 ds5 } } }, s'1) `cast` (Sym (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Constraints.SubC a, a1)>_R)) } }) `cast` (Sym (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N))) -} d949230218d95a2fc3452e73ea77f0c0 $tc'C:SymConsts :: GHC.Types.TyCon {- HasNoCafRefs, Strictness: m, Unfolding: (GHC.Types.TyCon 5168044056769303283## 18044279355453940619## Language.Fixpoint.Types.Visitor.$trModule Language.Fixpoint.Types.Visitor.$tc'C:SymConsts1) -} b681b0ff01936cf75ebf87471099a0eb $tc'C:SymConsts1 :: GHC.Types.TrName {- HasNoCafRefs, Strictness: m1, Unfolding: (GHC.Types.TrNameS "'C:SymConsts"#) -} a0ab4eddb3c4a9517a75e11c2ad8c868 $tc'C:Visitable :: GHC.Types.TyCon {- HasNoCafRefs, Strictness: m, Unfolding: (GHC.Types.TyCon 7500484986567656041## 177644629295887131## Language.Fixpoint.Types.Visitor.$trModule Language.Fixpoint.Types.Visitor.$tc'C:Visitable1) -} 089e42caa1b5bf51415de75aa3664887 $tc'C:Visitable1 :: GHC.Types.TrName {- HasNoCafRefs, Strictness: m1, Unfolding: (GHC.Types.TrNameS "'C:Visitable"#) -} d6589018a2f2121027ff510c05c3bbf0 $tc'MInt :: GHC.Types.TyCon {- HasNoCafRefs, Strictness: m, Unfolding: (GHC.Types.TyCon 3075174386398702742## 7333062448098494567## Language.Fixpoint.Types.Visitor.$trModule Language.Fixpoint.Types.Visitor.$tc'MInt1) -} 3def384dbd8e816e355f6af00861e545 $tc'MInt1 :: GHC.Types.TrName {- HasNoCafRefs, Strictness: m1, Unfolding: (GHC.Types.TrNameS "'MInt"#) -} a03cc2af918d99ccdd22056d6d66a04b $tc'Visitor :: GHC.Types.TyCon {- HasNoCafRefs, Strictness: m, Unfolding: (GHC.Types.TyCon 1067959098000224690## 6250259715442111976## Language.Fixpoint.Types.Visitor.$trModule Language.Fixpoint.Types.Visitor.$tc'Visitor1) -} 8942aeb0b414a59834839345fd9b0114 $tc'Visitor1 :: GHC.Types.TrName {- HasNoCafRefs, Strictness: m1, Unfolding: (GHC.Types.TrNameS "'Visitor"#) -} 9d7496764674f3cf56762b54f0cf1bbf $tcMInt :: GHC.Types.TyCon {- HasNoCafRefs, Strictness: m, Unfolding: (GHC.Types.TyCon 17082165803040957327## 8718487598105691120## Language.Fixpoint.Types.Visitor.$trModule Language.Fixpoint.Types.Visitor.$tcMInt1) -} 900bc13d853f0dc15c33b89300948f2a $tcMInt1 :: GHC.Types.TrName {- HasNoCafRefs, Strictness: m1, Unfolding: (GHC.Types.TrNameS "MInt"#) -} 27b0903920d0dab0b72ba6ac3f6d1775 $tcSymConsts :: GHC.Types.TyCon {- HasNoCafRefs, Strictness: m, Unfolding: (GHC.Types.TyCon 16570474597428536111## 16879269785248626226## Language.Fixpoint.Types.Visitor.$trModule Language.Fixpoint.Types.Visitor.$tcSymConsts1) -} 03e4e1f6e88a4e3f99f85e14a1e8eb70 $tcSymConsts1 :: GHC.Types.TrName {- HasNoCafRefs, Strictness: m1, Unfolding: (GHC.Types.TrNameS "SymConsts"#) -} 1d5698cbd1b2486846fa38a8a338ac43 $tcVisitable :: GHC.Types.TyCon {- HasNoCafRefs, Strictness: m, Unfolding: (GHC.Types.TyCon 12715897666376863913## 18013601660342401659## Language.Fixpoint.Types.Visitor.$trModule Language.Fixpoint.Types.Visitor.$tcVisitable1) -} e2dbf302a26b90a3f82748c3664b059d $tcVisitable1 :: GHC.Types.TrName {- HasNoCafRefs, Strictness: m1, Unfolding: (GHC.Types.TrNameS "Visitable"#) -} b4c1497885521e22d073fca5ca81fafb $tcVisitor :: GHC.Types.TyCon {- HasNoCafRefs, Strictness: m, Unfolding: (GHC.Types.TyCon 7722778231166247085## 3116314934715764522## Language.Fixpoint.Types.Visitor.$trModule Language.Fixpoint.Types.Visitor.$tcVisitor1) -} 478f72e1d3475630578ee54617d2b994 $tcVisitor1 :: GHC.Types.TrName {- HasNoCafRefs, Strictness: m1, Unfolding: (GHC.Types.TrNameS "Visitor"#) -} ca43691e63b90705540d9b5f77a69a65 $trModule :: GHC.Types.Module {- HasNoCafRefs, Strictness: m, Unfolding: (GHC.Types.Module Language.Fixpoint.Types.Visitor.$trModule2 Language.Fixpoint.Types.Visitor.$trModule1) -} fd74f0c2c41470966260dc7886e04cde $trModule1 :: GHC.Types.TrName {- HasNoCafRefs, Strictness: m1, Unfolding: (GHC.Types.TrNameS "Language.Fixpoint.Types.Visitor"#) -} 5f9431347189495cb6c2235e9a5a7f24 $trModule2 :: GHC.Types.TrName {- HasNoCafRefs, Strictness: m1, Unfolding: (GHC.Types.TrNameS "liquid-fixpoint-0.6.0.1-6TLfofWrTFvFP1QJmA2Rhf"#) -} 487d0150a1314871b7b84fc92411ac5c $w$csymConsts :: Language.Fixpoint.Types.Visitor.SymConsts (c a) => Data.HashMap.Base.HashMap Language.Fixpoint.Types.Constraints.SubcId (c a) -> Language.Fixpoint.Types.Environments.BindEnv -> [Language.Fixpoint.Types.Constraints.Qualifier] -> [Language.Fixpoint.Types.Refinements.SymConst] {- Arity: 4, HasNoCafRefs, Strictness: , Inline: [0] -} 2aae95e2c14b2c95413d86b78e8e272d $w$csymConsts1 :: Language.Fixpoint.Types.Refinements.Expr -> [Language.Fixpoint.Types.Refinements.SymConst] {- Arity: 1, HasNoCafRefs, Strictness: , Inline: [0], Unfolding: (\ (ww :: Language.Fixpoint.Types.Refinements.Expr) -> case ((Language.Fixpoint.Types.Visitor.visitExpr @ [Language.Fixpoint.Types.Refinements.SymConst] @ () (GHC.Base.$fMonoid[] @ Language.Fixpoint.Types.Refinements.SymConst) Language.Fixpoint.Types.Visitor.$fSymConstsExpr1 GHC.Tuple.() ww) `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] <[Language.Fixpoint.Types.Refinements.SymConst]>_N _R _N) (GHC.Types.[] @ Language.Fixpoint.Types.Refinements.SymConst)) `cast` (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Refinements.Expr, [Language.Fixpoint.Types.Refinements.SymConst])>_R) of wild { (,) ds1 y -> y }) -} 4b5f1c9bb674603b008a8183a5146c8f $w$csymConsts2 :: Language.Fixpoint.Types.Refinements.Expr -> Language.Fixpoint.Types.Refinements.Reft -> [Language.Fixpoint.Types.Refinements.SymConst] {- Arity: 2, HasNoCafRefs, Strictness: , Inline: [0], Unfolding: (\ @ a (ww :: Language.Fixpoint.Types.Refinements.Expr) (ww1 :: Language.Fixpoint.Types.Refinements.Reft) -> case ((Language.Fixpoint.Types.Visitor.visitExpr @ [Language.Fixpoint.Types.Refinements.SymConst] @ () (GHC.Base.$fMonoid[] @ Language.Fixpoint.Types.Refinements.SymConst) Language.Fixpoint.Types.Visitor.$fSymConstsExpr1 GHC.Tuple.() ww) `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] <[Language.Fixpoint.Types.Refinements.SymConst]>_N _R _N) (GHC.Types.[] @ Language.Fixpoint.Types.Refinements.SymConst)) `cast` (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Refinements.Expr, [Language.Fixpoint.Types.Refinements.SymConst])>_R) of wild { (,) ds1 y -> GHC.Base.++ @ Language.Fixpoint.Types.Refinements.SymConst y (case ww1 `cast` (Language.Fixpoint.Types.Refinements.N:Reft[0]) of wild1 { (,) ds ra -> case ((Language.Fixpoint.Types.Visitor.visitExpr @ [Language.Fixpoint.Types.Refinements.SymConst] @ () (GHC.Base.$fMonoid[] @ Language.Fixpoint.Types.Refinements.SymConst) Language.Fixpoint.Types.Visitor.$fSymConstsExpr1 GHC.Tuple.() ra) `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] <[Language.Fixpoint.Types.Refinements.SymConst]>_N _R _N) (GHC.Types.[] @ Language.Fixpoint.Types.Refinements.SymConst)) `cast` (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Refinements.Expr, [Language.Fixpoint.Types.Refinements.SymConst])>_R) of wild2 { (,) ds2 y1 -> y1 } }) }) -} 0b13b62e9c4b7c5d19fef21e738c4226 $w$cvisit :: GHC.Base.Monoid a => Language.Fixpoint.Types.Visitor.Visitor a c -> c -> Language.Fixpoint.Types.Names.Symbol -> Language.Fixpoint.Types.Refinements.SortedReft -> Language.Fixpoint.Types.Visitor.VisitM a (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft) {- Arity: 5, HasNoCafRefs, Strictness: , Inline: [0], Unfolding: (\ @ a @ c (w :: GHC.Base.Monoid a) (w1 :: Language.Fixpoint.Types.Visitor.Visitor a c) (w2 :: c) (ww :: Language.Fixpoint.Types.Names.Symbol) (ww1 :: Language.Fixpoint.Types.Refinements.SortedReft) -> let { m1 :: Control.Monad.Trans.State.Strict.StateT a Data.Functor.Identity.Identity Language.Fixpoint.Types.Refinements.SortedReft = case ww1 of ww2 { Language.Fixpoint.Types.Refinements.RR ww3 ww4 -> case ww4 `cast` (Language.Fixpoint.Types.Refinements.N:Reft[0]) of ww5 { (,) ww6 ww7 -> let { m2 :: Control.Monad.Trans.State.Strict.StateT a Data.Functor.Identity.Identity Language.Fixpoint.Types.Refinements.Expr = Language.Fixpoint.Types.Visitor.visitExpr @ a @ c w w1 w2 ww7 } in (\ (s1 :: a) -> case (m2 `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N) s1) `cast` (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Refinements.Expr, a)>_R) of wild { (,) a1 s' -> (Language.Fixpoint.Types.Refinements.RR ww3 (ww6, a1) `cast` (Sym (Language.Fixpoint.Types.Refinements.N:Reft[0])), s') `cast` (Sym (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Refinements.SortedReft, a)>_R)) }) `cast` (Sym (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N)) } } } in (\ (s1 :: a) -> case (m1 `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N) s1) `cast` (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Refinements.SortedReft, a)>_R) of wild { (,) a1 s' -> ((ww, a1), s') `cast` (Sym (Data.Functor.Identity.N:Identity[0] <((Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft), a)>_R)) }) `cast` (Sym (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R <(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft)>_N))) -} d2f69d06b610e20a18d81ed4fbcbc694 $w$cvisit1 :: GHC.Base.Monoid a => Language.Fixpoint.Types.Visitor.Visitor a c -> c -> Language.Fixpoint.Types.Names.Symbol -> Language.Fixpoint.Types.Refinements.Expr -> Language.Fixpoint.Types.Visitor.VisitM a Language.Fixpoint.Types.Refinements.Reft {- Arity: 5, HasNoCafRefs, Strictness: , Inline: [0], Unfolding: (\ @ a @ c (w :: GHC.Base.Monoid a) (w1 :: Language.Fixpoint.Types.Visitor.Visitor a c) (w2 :: c) (ww :: Language.Fixpoint.Types.Names.Symbol) (ww1 :: Language.Fixpoint.Types.Refinements.Expr) -> let { m1 :: Control.Monad.Trans.State.Strict.StateT a Data.Functor.Identity.Identity Language.Fixpoint.Types.Refinements.Expr = Language.Fixpoint.Types.Visitor.visitExpr @ a @ c w w1 w2 ww1 } in (\ (s1 :: a) -> case (m1 `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N) s1) `cast` (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Refinements.Expr, a)>_R) of wild { (,) a1 s' -> ((ww, a1) `cast` (Sym (Language.Fixpoint.Types.Refinements.N:Reft[0])), s') `cast` (Sym (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Refinements.Reft, a)>_R)) }) `cast` (Sym (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N))) -} 0b247c98a1e12cf94b0c433d52af0deb $w$cvisit2 :: GHC.Base.Monoid a => Language.Fixpoint.Types.Visitor.Visitor a c -> c -> GHC.Prim.Int# -> Language.Fixpoint.Types.Environments.BindMap (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft) -> Control.Monad.Trans.State.Strict.StateT a Data.Functor.Identity.Identity (Language.Fixpoint.Types.Environments.SizedEnv (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft)) {- Arity: 5, Strictness: , Inline: [0], Unfolding: (\ @ a @ c (w :: GHC.Base.Monoid a) (w1 :: Language.Fixpoint.Types.Visitor.Visitor a c) (w2 :: c) (ww :: GHC.Prim.Int#) (ww1 :: Language.Fixpoint.Types.Environments.BindMap (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft)) -> let { m1 :: Control.Monad.Trans.State.Strict.StateT a Data.Functor.Identity.Identity (Language.Fixpoint.Types.Environments.BindMap (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft)) = Data.HashMap.Base.$fTraversableHashMap_$ctraverse @ GHC.Types.Int @ (Control.Monad.Trans.State.Strict.StateT a Data.Functor.Identity.Identity) @ (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft) @ (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft) (Language.Fixpoint.Types.Visitor.$fVisitableGInfo_$s$fApplicativeStateT @ a) (Language.Fixpoint.Types.Visitor.$fVisitable(,)_$cvisit @ a @ c w w1 w2) ww1 } in (\ (s1 :: a) -> case (m1 `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N) s1) `cast` (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Environments.BindMap (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft), a)>_R) of wild { (,) a1 s' -> (case a1 of dt { DEFAULT -> Language.Fixpoint.Types.Environments.BE @ (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft) ww dt }, s') `cast` (Sym (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Environments.SizedEnv (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft), a)>_R)) }) `cast` (Sym (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N))) -} 5e8f3e4bfd98dda49819dd4ee4808daf $wgo1 :: Data.HashMap.Array.Array (Data.HashMap.Base.HashMap Language.Fixpoint.Types.Environments.BindId (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft)) -> GHC.Prim.Int# -> GHC.Prim.Int# -> [Language.Fixpoint.Types.Refinements.SymConst] -> [Language.Fixpoint.Types.Refinements.SymConst] {- Arity: 4, HasNoCafRefs, Strictness: , Inline: [0] -} 7df4f2e35bad3be9c1d5049082a7d196 $wgo2 :: Data.HashMap.Array.Array (Data.HashMap.Base.Leaf Language.Fixpoint.Types.Environments.BindId (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft)) -> GHC.Prim.Int# -> GHC.Prim.Int# -> [Language.Fixpoint.Types.Refinements.SymConst] -> [Language.Fixpoint.Types.Refinements.SymConst] {- Arity: 4, HasNoCafRefs, Strictness: , Inline: [0] -} 9e1c89fb89b10cfd78a13b352850e3d5 $wgo3 :: Data.HashMap.Array.Array (Data.HashMap.Base.HashMap Language.Fixpoint.Types.Environments.BindId (Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft)) -> GHC.Prim.Int# -> GHC.Prim.Int# -> [Language.Fixpoint.Types.Refinements.SymConst] -> [Language.Fixpoint.Types.Refinements.SymConst] {- Arity: 4, HasNoCafRefs, Strictness: , Inline: [0] -} fab61e3c7ac0c59b935d23c162d454b2 $wgo4 :: Data.HashMap.Array.Array (Data.HashMap.Base.Leaf Language.Fixpoint.Types.Refinements.KVar ()) -> GHC.Prim.Int# -> GHC.Prim.Int# -> [Language.Fixpoint.Types.Refinements.KVar] -> [Language.Fixpoint.Types.Refinements.KVar] {- Arity: 4, HasNoCafRefs, Strictness: , Inline: [0] -} 5442c2b6df7d476b5fd51678e83452e8 $wgo5 :: Data.HashMap.Array.Array (Data.HashMap.Base.HashMap Language.Fixpoint.Types.Refinements.KVar ()) -> GHC.Prim.Int# -> GHC.Prim.Int# -> [Language.Fixpoint.Types.Refinements.KVar] -> [Language.Fixpoint.Types.Refinements.KVar] {- Arity: 4, HasNoCafRefs, Strictness: , Inline: [0] -} f4a5f483f17ec6c5ab282f5bfefc24d1 $wgo6 :: Data.HashMap.Array.Array (Data.HashMap.Base.HashMap Language.Fixpoint.Types.Refinements.KVar ()) -> GHC.Prim.Int# -> GHC.Prim.Int# -> [Language.Fixpoint.Types.Refinements.KVar] -> [Language.Fixpoint.Types.Refinements.KVar] {- Arity: 4, HasNoCafRefs, Strictness: , Inline: [0] -} 239f66d8996b0f6ab8aa800f771f8e14 newtype MInt = MInt GHC.Integer.Type.Integer 487d0150a1314871b7b84fc92411ac5c class SymConsts a where symConsts :: a -> [Language.Fixpoint.Types.Refinements.SymConst] {-# MINIMAL symConsts #-} 9a0e6c7f24ae6537817b1a6a27aad08d type VisitM acc = Control.Monad.Trans.State.Strict.State acc :: * -> * b5488c516ee98083465a9979b0edbf0b class Visitable t where visit :: GHC.Base.Monoid a => Language.Fixpoint.Types.Visitor.Visitor a c -> c -> t -> Language.Fixpoint.Types.Visitor.VisitM a t {-# MINIMAL visit #-} 33c63afa8f4288a9ffa5e86ff687dc11 data Visitor acc ctx = Visitor {ctxExpr :: ctx -> Language.Fixpoint.Types.Refinements.Expr -> ctx, txExpr :: ctx -> Language.Fixpoint.Types.Refinements.Expr -> Language.Fixpoint.Types.Refinements.Expr, accExpr :: ctx -> Language.Fixpoint.Types.Refinements.Expr -> acc} d0ee2d431eac6e5bd8f232ae912f3573 accExpr :: Language.Fixpoint.Types.Visitor.Visitor acc ctx -> ctx -> Language.Fixpoint.Types.Refinements.Expr -> acc RecSel Left Language.Fixpoint.Types.Visitor.Visitor {- Arity: 1, HasNoCafRefs, Strictness: , Unfolding: InlineRule (1, True, False) (\ @ acc @ ctx (ds :: Language.Fixpoint.Types.Visitor.Visitor acc ctx) -> case ds of wild { Language.Fixpoint.Types.Visitor.Visitor ds1 ds2 ds3 -> ds3 }) -} 93161d2daeca51281482e1fbd8baa56a ctxExpr :: Language.Fixpoint.Types.Visitor.Visitor acc ctx -> ctx -> Language.Fixpoint.Types.Refinements.Expr -> ctx RecSel Left Language.Fixpoint.Types.Visitor.Visitor {- Arity: 1, HasNoCafRefs, Strictness: , Unfolding: InlineRule (1, True, False) (\ @ acc @ ctx (ds :: Language.Fixpoint.Types.Visitor.Visitor acc ctx) -> case ds of wild { Language.Fixpoint.Types.Visitor.Visitor ds1 ds2 ds3 -> ds1 }) -} d076e91e9b65345dc4f86c444d6f63d5 defaultVisitor :: GHC.Base.Monoid acc => Language.Fixpoint.Types.Visitor.Visitor acc ctx {- Arity: 1, HasNoCafRefs, Strictness: m, Unfolding: InlineRule (1, True, False) (\ @ acc @ ctx ($dMonoid :: GHC.Base.Monoid acc) -> let { lvl3 :: acc = GHC.Base.mempty @ acc $dMonoid } in Language.Fixpoint.Types.Visitor.Visitor @ acc @ ctx (GHC.Base.const @ ctx @ Language.Fixpoint.Types.Refinements.Expr) (Language.Fixpoint.Types.Visitor.$fSymConstsExpr3 @ ctx) (\ (ds :: ctx) (ds1 :: Language.Fixpoint.Types.Refinements.Expr) -> lvl3)) -} d63c8f2c7640ab0edbc423852a9f6287 eapps :: Language.Fixpoint.Types.Visitor.Visitable t => t -> [Language.Fixpoint.Types.Refinements.Expr] {- Arity: 2, HasNoCafRefs, Strictness: , Unfolding: InlineRule (2, True, False) (\ @ t ($dVisitable :: Language.Fixpoint.Types.Visitor.Visitable t) (t1 :: t) -> case (($dVisitable `cast` (Language.Fixpoint.Types.Visitor.N:Visitable[0] _N) @ [Language.Fixpoint.Types.Refinements.Expr] @ () (GHC.Base.$fMonoid[] @ Language.Fixpoint.Types.Refinements.Expr) Language.Fixpoint.Types.Visitor.eapps1 GHC.Tuple.() t1) `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] <[Language.Fixpoint.Types.Refinements.Expr]>_N _R _N) (GHC.Types.[] @ Language.Fixpoint.Types.Refinements.Expr)) `cast` (Data.Functor.Identity.N:Identity[0] <(t, [Language.Fixpoint.Types.Refinements.Expr])>_R) of wild { (,) ds1 y -> y }) -} 625f3694e1fc5010b4f0baeae5eb436c eapps1 :: Language.Fixpoint.Types.Visitor.Visitor [Language.Fixpoint.Types.Refinements.Expr] () {- HasNoCafRefs, Strictness: m, Unfolding: (Language.Fixpoint.Types.Visitor.Visitor @ [Language.Fixpoint.Types.Refinements.Expr] @ () (GHC.Base.const @ () @ Language.Fixpoint.Types.Refinements.Expr) (Language.Fixpoint.Types.Visitor.$fSymConstsExpr3 @ ()) Language.Fixpoint.Types.Visitor.eapps2) -} e6c20954eab4fbe5b989d0c576918ada eapps2 :: () -> Language.Fixpoint.Types.Refinements.Expr -> [Language.Fixpoint.Types.Refinements.Expr] {- Arity: 2, HasNoCafRefs, Strictness: , Unfolding: InlineRule (2, True, False) (\ (ds :: ()) (e :: Language.Fixpoint.Types.Refinements.Expr) -> case e of wild { DEFAULT -> GHC.Types.[] @ Language.Fixpoint.Types.Refinements.Expr Language.Fixpoint.Types.Refinements.EApp ds1 ds2 -> GHC.Types.: @ Language.Fixpoint.Types.Refinements.Expr wild (GHC.Types.[] @ Language.Fixpoint.Types.Refinements.Expr) }) -} 8beb8bafb32f77bb7d6294a6bb583510 envKVars :: Language.Fixpoint.Types.Constraints.TaggedC c a => Language.Fixpoint.Types.Environments.BindEnv -> c a -> [Language.Fixpoint.Types.Refinements.KVar] {- Arity: 3, Strictness: , Unfolding: (\ @ (c :: * -> *) @ a ($dTaggedC :: Language.Fixpoint.Types.Constraints.TaggedC c a) (be :: Language.Fixpoint.Types.Environments.BindEnv) (c1 :: c a) -> Language.Fixpoint.Types.Visitor.envKVars_go1 (GHC.Types.[] @ Language.Fixpoint.Types.Refinements.KVar) (Language.Fixpoint.Types.Visitor.envKVars_go (Language.Fixpoint.Types.Constraints.clhs @ c @ a $dTaggedC be c1) (Data.HashMap.Base.Empty @ Language.Fixpoint.Types.Refinements.KVar @ ()))) -} a0dcdf6742402ac65be1e924a7312c47 envKVarsN :: Language.Fixpoint.Types.Constraints.TaggedC c a => Language.Fixpoint.Types.Environments.BindEnv -> c a -> [(Language.Fixpoint.Types.Refinements.KVar, GHC.Types.Int)] {- Arity: 3, Strictness: , Unfolding: (\ @ (c :: * -> *) @ a ($dTaggedC :: Language.Fixpoint.Types.Constraints.TaggedC c a) (be :: Language.Fixpoint.Types.Environments.BindEnv) (c1 :: c a) -> Language.Fixpoint.Misc.count @ Language.Fixpoint.Types.Refinements.KVar Language.Fixpoint.Types.Refinements.$fEqKVar Language.Fixpoint.Types.Refinements.$fHashableKVar (Language.Fixpoint.Types.Visitor.envKVarsN_go (Language.Fixpoint.Types.Constraints.clhs @ c @ a $dTaggedC be c1))) -} c9ad696778953cb375c4711e5a8051d8 envKVarsN_go :: [(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft)] -> [Language.Fixpoint.Types.Refinements.KVar] {- Arity: 1, HasNoCafRefs, Strictness: -} 84364ec161ce7fa67b605aefd2151f06 envKVars_go :: [(Language.Fixpoint.Types.Names.Symbol, Language.Fixpoint.Types.Refinements.SortedReft)] -> Data.HashMap.Base.HashMap Language.Fixpoint.Types.Refinements.KVar () -> Data.HashMap.Base.HashMap Language.Fixpoint.Types.Refinements.KVar () {- Arity: 2, Strictness: -} b4d2fc4fb29e4df23a114a3a4b467c89 envKVars_go1 :: [Language.Fixpoint.Types.Refinements.KVar] -> Data.HashMap.Base.HashMap Language.Fixpoint.Types.Refinements.KVar () -> [Language.Fixpoint.Types.Refinements.KVar] {- Arity: 2, HasNoCafRefs, Strictness: , Unfolding: (\ (z1 :: [Language.Fixpoint.Types.Refinements.KVar]) (ds :: Data.HashMap.Base.HashMap Language.Fixpoint.Types.Refinements.KVar ()) -> case ds of wild { Data.HashMap.Base.Empty -> z1 Data.HashMap.Base.BitmapIndexed dt dt1 -> Language.Fixpoint.Types.Visitor.$wgo6 (Data.HashMap.Array.Array @ (Data.HashMap.Base.HashMap Language.Fixpoint.Types.Refinements.KVar ()) dt1) (GHC.Prim.sizeofArray# @ (Data.HashMap.Base.HashMap Language.Fixpoint.Types.Refinements.KVar ()) dt1) 0# z1 Data.HashMap.Base.Leaf dt dt1 dt2 -> GHC.Types.: @ Language.Fixpoint.Types.Refinements.KVar dt1 z1 Data.HashMap.Base.Full dt -> Language.Fixpoint.Types.Visitor.$wgo5 (Data.HashMap.Array.Array @ (Data.HashMap.Base.HashMap Language.Fixpoint.Types.Refinements.KVar ()) dt) (GHC.Prim.sizeofArray# @ (Data.HashMap.Base.HashMap Language.Fixpoint.Types.Refinements.KVar ()) dt) 0# z1 Data.HashMap.Base.Collision dt dt1 -> Language.Fixpoint.Types.Visitor.$wgo4 (Data.HashMap.Array.Array @ (Data.HashMap.Base.Leaf Language.Fixpoint.Types.Refinements.KVar ()) dt1) (GHC.Prim.sizeofArray# @ (Data.HashMap.Base.Leaf Language.Fixpoint.Types.Refinements.KVar ()) dt1) 0# z1 }) -} 959bed7463c9510c06515f0a30c37558 fold :: (Language.Fixpoint.Types.Visitor.Visitable t, GHC.Base.Monoid a) => Language.Fixpoint.Types.Visitor.Visitor a ctx -> ctx -> a -> t -> a {- Arity: 6, HasNoCafRefs, Strictness: , Unfolding: InlineRule (6, True, False) (\ @ t @ a @ ctx ($dVisitable :: Language.Fixpoint.Types.Visitor.Visitable t) ($dMonoid :: GHC.Base.Monoid a) (v :: Language.Fixpoint.Types.Visitor.Visitor a ctx) (c :: ctx) (a1 :: a) (t1 :: t) -> case (($dVisitable `cast` (Language.Fixpoint.Types.Visitor.N:Visitable[0] _N) @ a @ ctx $dMonoid v c t1) `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N) a1) `cast` (Data.Functor.Identity.N:Identity[0] <(t, a)>_R) of wild { (,) ds1 y -> y }) -} 8ccf870b83ea22eef6497c06e35f13f4 foldSort :: (a -> Language.Fixpoint.Types.Sorts.Sort -> a) -> a -> Language.Fixpoint.Types.Sorts.Sort -> a {- Arity: 3, HasNoCafRefs, Strictness: , Unfolding: (\ @ a (f :: a -> Language.Fixpoint.Types.Sorts.Sort -> a) (eta :: a) (eta1 :: Language.Fixpoint.Types.Sorts.Sort) -> letrec { go3 :: a -> Language.Fixpoint.Types.Sorts.Sort -> a {- Arity: 2, Strictness: -} = \ (b :: a) (ds :: Language.Fixpoint.Types.Sorts.Sort) -> case ds of wild { DEFAULT -> b Language.Fixpoint.Types.Sorts.FFunc t1 t2 -> case b of z { DEFAULT -> case go3 (f z t1) t1 of z1 { DEFAULT -> go3 (f z1 t2) t2 } } Language.Fixpoint.Types.Sorts.FAbs dt t -> go3 b t Language.Fixpoint.Types.Sorts.FApp t1 t2 -> case b of z { DEFAULT -> case go3 (f z t1) t1 of z1 { DEFAULT -> go3 (f z1 t2) t2 } } } } in go3 (f eta eta1) eta1) -} 168eb47fa1697b4be4039258d2f9ed16 isConcC :: Language.Fixpoint.Types.Constraints.TaggedC c a => c a -> GHC.Types.Bool {- Arity: 2, HasNoCafRefs, Strictness: , Unfolding: (\ @ (c :: * -> *) @ a ($dTaggedC :: Language.Fixpoint.Types.Constraints.TaggedC c a) (eta :: c a) -> case Language.Fixpoint.Types.Constraints.crhs @ c @ a $dTaggedC eta of wild { DEFAULT -> case Language.Fixpoint.Types.Refinements.isTautoPred wild of wild1 { GHC.Types.False -> case ((Language.Fixpoint.Types.Visitor.visitExpr @ [Language.Fixpoint.Types.Refinements.KVar] @ () (GHC.Base.$fMonoid[] @ Language.Fixpoint.Types.Refinements.KVar) Language.Fixpoint.Types.Visitor.isConcC1 GHC.Tuple.() wild) `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] <[Language.Fixpoint.Types.Refinements.KVar]>_N _R _N) (GHC.Types.[] @ Language.Fixpoint.Types.Refinements.KVar)) `cast` (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Refinements.Expr, [Language.Fixpoint.Types.Refinements.KVar])>_R) of wild2 { (,) ds1 y -> case y of wild3 { [] -> GHC.Types.True : ds2 ds3 -> GHC.Types.False } } GHC.Types.True -> GHC.Types.True } Language.Fixpoint.Types.Refinements.PAnd ps -> (Language.Fixpoint.Types.Visitor.isConcC_go (Language.Fixpoint.Types.Refinements.conjuncts_go ps)) `cast` (Data.Monoid.N:All[0]) }) -} c09862a57b688fa00824aa0360025265 isConcC1 :: Language.Fixpoint.Types.Visitor.Visitor [Language.Fixpoint.Types.Refinements.KVar] () {- HasNoCafRefs, Strictness: m, Unfolding: (Language.Fixpoint.Types.Visitor.Visitor @ [Language.Fixpoint.Types.Refinements.KVar] @ () (GHC.Base.const @ () @ Language.Fixpoint.Types.Refinements.Expr) (Language.Fixpoint.Types.Visitor.$fSymConstsExpr3 @ ()) Language.Fixpoint.Types.Visitor.isConcC2) -} f19821bed1783426d3450ff2071e655b isConcC2 :: () -> Language.Fixpoint.Types.Refinements.Expr -> [Language.Fixpoint.Types.Refinements.KVar] {- Arity: 2, HasNoCafRefs, Strictness: , Unfolding: InlineRule (2, True, False) (\ (ds :: ()) (ds1 :: Language.Fixpoint.Types.Refinements.Expr) -> case ds1 of wild { DEFAULT -> GHC.Types.[] @ Language.Fixpoint.Types.Refinements.KVar Language.Fixpoint.Types.Refinements.PKVar k ds2 -> GHC.Types.: @ Language.Fixpoint.Types.Refinements.KVar k (GHC.Types.[] @ Language.Fixpoint.Types.Refinements.KVar) Language.Fixpoint.Types.Refinements.PGrad k ds2 ds3 -> GHC.Types.: @ Language.Fixpoint.Types.Refinements.KVar k (GHC.Types.[] @ Language.Fixpoint.Types.Refinements.KVar) }) -} d971f7b6649eba10e06546c29436fb65 isConcC_go :: [Language.Fixpoint.Types.Refinements.Expr] -> Data.Monoid.All {- Arity: 1, HasNoCafRefs, Strictness: -} 66f0d7fd732551524a0e018bd0ab4846 isKvarC :: Language.Fixpoint.Types.Constraints.TaggedC c a => c a -> GHC.Types.Bool {- Arity: 2, HasNoCafRefs, Strictness: , Unfolding: (\ @ (c :: * -> *) @ a ($dTaggedC :: Language.Fixpoint.Types.Constraints.TaggedC c a) (eta :: c a) -> case Language.Fixpoint.Types.Constraints.crhs @ c @ a $dTaggedC eta of wild { DEFAULT -> case Language.Fixpoint.Types.Refinements.isTautoPred wild of wild1 { GHC.Types.False -> case wild of wild2 { DEFAULT -> GHC.Types.False Language.Fixpoint.Types.Refinements.PKVar ds ds1 -> GHC.Types.True Language.Fixpoint.Types.Refinements.PGrad ds ds1 ds2 -> GHC.Types.True } GHC.Types.True -> GHC.Types.True } Language.Fixpoint.Types.Refinements.PAnd ps -> (Language.Fixpoint.Types.Visitor.isKvarC_go (Language.Fixpoint.Types.Refinements.conjuncts_go ps)) `cast` (Data.Monoid.N:All[0]) }) -} 03d706d9f2c5bf069e478d33fe405fe5 isKvarC_go :: [Language.Fixpoint.Types.Refinements.Expr] -> Data.Monoid.All {- Arity: 1, HasNoCafRefs, Strictness: -} 16b8d297ad4a7c9e979b8fb21df7dcf8 kvars :: Language.Fixpoint.Types.Visitor.Visitable t => t -> [Language.Fixpoint.Types.Refinements.KVar] {- Arity: 2, HasNoCafRefs, Strictness: , Unfolding: InlineRule (2, True, False) (\ @ t ($dVisitable :: Language.Fixpoint.Types.Visitor.Visitable t) (t1 :: t) -> case (($dVisitable `cast` (Language.Fixpoint.Types.Visitor.N:Visitable[0] _N) @ [Language.Fixpoint.Types.Refinements.KVar] @ () (GHC.Base.$fMonoid[] @ Language.Fixpoint.Types.Refinements.KVar) Language.Fixpoint.Types.Visitor.isConcC1 GHC.Tuple.() t1) `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] <[Language.Fixpoint.Types.Refinements.KVar]>_N _R _N) (GHC.Types.[] @ Language.Fixpoint.Types.Refinements.KVar)) `cast` (Data.Functor.Identity.N:Identity[0] <(t, [Language.Fixpoint.Types.Refinements.KVar])>_R) of wild { (,) ds1 y -> y }) -} 07d9d495b0787697bcef0c6337c16844 lamSize :: Language.Fixpoint.Types.Visitor.Visitable t => t -> GHC.Integer.Type.Integer {- Arity: 2, Strictness: , Unfolding: InlineRule (0, True, True) Language.Fixpoint.Types.Visitor.lamSize1 `cast` (forall (t :: <*>_N). _R ->_R _R ->_R Language.Fixpoint.Types.Visitor.N:MInt[0]) -} 9c6b29a261797729925791e43cb45d91 lamSize1 :: Language.Fixpoint.Types.Visitor.Visitable t => t -> Language.Fixpoint.Types.Visitor.MInt {- Arity: 2, Strictness: , Unfolding: InlineRule (2, True, False) (\ @ t ($dVisitable :: Language.Fixpoint.Types.Visitor.Visitable t) (t1 :: t) -> case (($dVisitable `cast` (Language.Fixpoint.Types.Visitor.N:Visitable[0] _N) @ Language.Fixpoint.Types.Visitor.MInt @ () Language.Fixpoint.Types.Visitor.$fMonoidMInt Language.Fixpoint.Types.Visitor.lamSize2 GHC.Tuple.() t1) `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N) Language.Fixpoint.Types.Visitor.$fMonoidMInt1 `cast` (Sym (Language.Fixpoint.Types.Visitor.N:MInt[0]))) `cast` (Data.Functor.Identity.N:Identity[0] <(t, Language.Fixpoint.Types.Visitor.MInt)>_R) of wild { (,) ds1 y -> y }) -} 3366f761b611167dfe9894e9818adc73 lamSize2 :: Language.Fixpoint.Types.Visitor.Visitor Language.Fixpoint.Types.Visitor.MInt () {- HasNoCafRefs, Strictness: m, Unfolding: (Language.Fixpoint.Types.Visitor.Visitor @ Language.Fixpoint.Types.Visitor.MInt @ () (GHC.Base.const @ () @ Language.Fixpoint.Types.Refinements.Expr) (Language.Fixpoint.Types.Visitor.$fSymConstsExpr3 @ ()) Language.Fixpoint.Types.Visitor.lamSize3) -} 3fc303747fabd7805d3722812f94534a lamSize3 :: () -> Language.Fixpoint.Types.Refinements.Expr -> Language.Fixpoint.Types.Visitor.MInt {- Arity: 2, HasNoCafRefs, Strictness: , Unfolding: InlineRule (2, True, False) (\ (ds :: ()) (ds1 :: Language.Fixpoint.Types.Refinements.Expr) -> case ds1 of wild { DEFAULT -> Language.Fixpoint.Types.Visitor.$fMonoidMInt1 `cast` (Sym (Language.Fixpoint.Types.Visitor.N:MInt[0])) Language.Fixpoint.Types.Refinements.ELam ds2 ds3 -> Language.Fixpoint.Types.Visitor.lamSize4 `cast` (Sym (Language.Fixpoint.Types.Visitor.N:MInt[0])) }) -} 0c71a8036829ddff51861814f6c7458b lamSize4 :: GHC.Integer.Type.Integer {- HasNoCafRefs, Unfolding: (1) -} d9f5673910f4e8be82a41738edf792b5 mapExpr :: (Language.Fixpoint.Types.Refinements.Expr -> Language.Fixpoint.Types.Refinements.Expr) -> Language.Fixpoint.Types.Refinements.Expr -> Language.Fixpoint.Types.Refinements.Expr {- Arity: 2, HasNoCafRefs, Strictness: , Unfolding: InlineRule (2, True, False) (\ (f :: Language.Fixpoint.Types.Refinements.Expr -> Language.Fixpoint.Types.Refinements.Expr) (eta :: Language.Fixpoint.Types.Refinements.Expr) -> case ((Language.Fixpoint.Types.Visitor.visitExpr @ [GHC.Prim.Any] @ () (GHC.Base.$fMonoid[] @ GHC.Prim.Any) (Language.Fixpoint.Types.Visitor.Visitor @ [GHC.Prim.Any] @ () (GHC.Base.const @ () @ Language.Fixpoint.Types.Refinements.Expr) (\ (ds :: ()) -> f) Language.Fixpoint.Types.Visitor.mapExpr1) GHC.Tuple.() eta) `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] <[GHC.Prim.Any]>_N _R _N) (GHC.Types.[] @ GHC.Prim.Any)) `cast` (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Refinements.Expr, [GHC.Prim.Any])>_R) of wild { (,) x ds1 -> x }) -} 6dc1abbd46a3ec128f1c08aef26f6326 mapExpr1 :: () -> Language.Fixpoint.Types.Refinements.Expr -> [GHC.Prim.Any] {- Arity: 2, HasNoCafRefs, Strictness: , Unfolding: InlineRule (2, True, True) (\ (ds :: ()) (ds1 :: Language.Fixpoint.Types.Refinements.Expr) -> GHC.Types.[] @ GHC.Prim.Any) -} 5c2ee594f944d9ac0904549f86b93398 mapKVarSubsts :: Language.Fixpoint.Types.Visitor.Visitable t => (Language.Fixpoint.Types.Refinements.KVar -> Language.Fixpoint.Types.Refinements.Subst -> Language.Fixpoint.Types.Refinements.Subst) -> t -> t {- Arity: 3, HasNoCafRefs, Strictness: , Unfolding: (\ @ t ($dVisitable :: Language.Fixpoint.Types.Visitor.Visitable t) (f :: Language.Fixpoint.Types.Refinements.KVar -> Language.Fixpoint.Types.Refinements.Subst -> Language.Fixpoint.Types.Refinements.Subst) (eta :: t) -> case (($dVisitable `cast` (Language.Fixpoint.Types.Visitor.N:Visitable[0] _N) @ [GHC.Prim.Any] @ () (GHC.Base.$fMonoid[] @ GHC.Prim.Any) (Language.Fixpoint.Types.Visitor.Visitor @ [GHC.Prim.Any] @ () (GHC.Base.const @ () @ Language.Fixpoint.Types.Refinements.Expr) (\ (ds :: ()) (ds1 :: Language.Fixpoint.Types.Refinements.Expr) -> case ds1 of wild { DEFAULT -> wild Language.Fixpoint.Types.Refinements.PKVar k su -> case (f k su) `cast` (Language.Fixpoint.Types.Refinements.N:Subst[0]) of nt { DEFAULT -> Language.Fixpoint.Types.Refinements.PKVar k nt `cast` (Sym (Language.Fixpoint.Types.Refinements.N:Subst[0])) } Language.Fixpoint.Types.Refinements.PGrad k su e -> case (f k su) `cast` (Language.Fixpoint.Types.Refinements.N:Subst[0]) of nt { DEFAULT -> Language.Fixpoint.Types.Refinements.PGrad k nt `cast` (Sym (Language.Fixpoint.Types.Refinements.N:Subst[0])) e } }) Language.Fixpoint.Types.Visitor.mapExpr1) GHC.Tuple.() eta) `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] <[GHC.Prim.Any]>_N _R _N) (GHC.Types.[] @ GHC.Prim.Any)) `cast` (Data.Functor.Identity.N:Identity[0] <(t, [GHC.Prim.Any])>_R) of wild { (,) x ds1 -> x }) -} 0ed00aae968de150fa223abd5c1357d8 mapKVars :: Language.Fixpoint.Types.Visitor.Visitable t => (Language.Fixpoint.Types.Refinements.KVar -> GHC.Base.Maybe Language.Fixpoint.Types.Refinements.Expr) -> t -> t {- Arity: 3, Strictness: , Unfolding: InlineRule (3, True, False) (\ @ t ($dVisitable :: Language.Fixpoint.Types.Visitor.Visitable t) (f :: Language.Fixpoint.Types.Refinements.KVar -> GHC.Base.Maybe Language.Fixpoint.Types.Refinements.Expr) (eta :: t) -> Language.Fixpoint.Types.Visitor.mapKVars' @ t $dVisitable (\ (ds :: (Language.Fixpoint.Types.Refinements.KVar, Language.Fixpoint.Types.Refinements.Subst)) -> case ds of wild { (,) kv' ds1 -> f kv' }) eta) -} 0f8d6640a1d06a16e31aa2c13647552a mapKVars' :: Language.Fixpoint.Types.Visitor.Visitable t => ((Language.Fixpoint.Types.Refinements.KVar, Language.Fixpoint.Types.Refinements.Subst) -> GHC.Base.Maybe Language.Fixpoint.Types.Refinements.Expr) -> t -> t {- Arity: 3, Strictness: , Unfolding: (\ @ t ($dVisitable :: Language.Fixpoint.Types.Visitor.Visitable t) (f :: (Language.Fixpoint.Types.Refinements.KVar, Language.Fixpoint.Types.Refinements.Subst) -> GHC.Base.Maybe Language.Fixpoint.Types.Refinements.Expr) (eta :: t) -> case (($dVisitable `cast` (Language.Fixpoint.Types.Visitor.N:Visitable[0] _N) @ [GHC.Prim.Any] @ () (GHC.Base.$fMonoid[] @ GHC.Prim.Any) (Language.Fixpoint.Types.Visitor.Visitor @ [GHC.Prim.Any] @ () (GHC.Base.const @ () @ Language.Fixpoint.Types.Refinements.Expr) (\ (ds :: ()) (ds1 :: Language.Fixpoint.Types.Refinements.Expr) -> case ds1 of wild { DEFAULT -> wild Language.Fixpoint.Types.Refinements.PKVar k su -> case f (k, su) of wild1 { GHC.Base.Nothing -> wild GHC.Base.Just p' -> Language.Fixpoint.Types.Substitutions.$fMonoidReft_$csubst su p' } Language.Fixpoint.Types.Refinements.PGrad k su ds2 -> case f (k, su) of wild1 { GHC.Base.Nothing -> wild GHC.Base.Just p' -> Language.Fixpoint.Types.Substitutions.$fMonoidReft_$csubst su p' } }) Language.Fixpoint.Types.Visitor.mapExpr1) GHC.Tuple.() eta) `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] <[GHC.Prim.Any]>_N _R _N) (GHC.Types.[] @ GHC.Prim.Any)) `cast` (Data.Functor.Identity.N:Identity[0] <(t, [GHC.Prim.Any])>_R) of wild { (,) x ds1 -> x }) -} 6616a904920b9995d8850ccd6842422c mapMExpr :: GHC.Base.Monad m => (Language.Fixpoint.Types.Refinements.Expr -> m Language.Fixpoint.Types.Refinements.Expr) -> Language.Fixpoint.Types.Refinements.Expr -> m Language.Fixpoint.Types.Refinements.Expr {- Arity: 3, HasNoCafRefs, Strictness: -} 6607fc6ebc44b7a5f02e3380cea270cb mapSort :: (Language.Fixpoint.Types.Sorts.Sort -> Language.Fixpoint.Types.Sorts.Sort) -> Language.Fixpoint.Types.Sorts.Sort -> Language.Fixpoint.Types.Sorts.Sort {- Arity: 2, HasNoCafRefs, Strictness: , Unfolding: (\ (f :: Language.Fixpoint.Types.Sorts.Sort -> Language.Fixpoint.Types.Sorts.Sort) (eta :: Language.Fixpoint.Types.Sorts.Sort) -> letrec { step :: Language.Fixpoint.Types.Sorts.Sort -> Language.Fixpoint.Types.Sorts.Sort {- Arity: 1, Strictness: -} = \ (x :: Language.Fixpoint.Types.Sorts.Sort) -> case f x of wild { DEFAULT -> wild Language.Fixpoint.Types.Sorts.FFunc t1 t2 -> case step t1 of dt { DEFAULT -> case step t2 of dt1 { DEFAULT -> Language.Fixpoint.Types.Sorts.FFunc dt dt1 } } Language.Fixpoint.Types.Sorts.FAbs dt t -> case step t of dt1 { DEFAULT -> Language.Fixpoint.Types.Sorts.FAbs dt dt1 } Language.Fixpoint.Types.Sorts.FApp t1 t2 -> case step t1 of dt { DEFAULT -> case step t2 of dt1 { DEFAULT -> Language.Fixpoint.Types.Sorts.FApp dt dt1 } } } } in step eta) -} 82f909c00a52c7e77d1d76d4eab7697c rhsKVars :: Language.Fixpoint.Types.Constraints.TaggedC c a => c a -> [Language.Fixpoint.Types.Refinements.KVar] {- Arity: 2, HasNoCafRefs, Strictness: , Unfolding: (\ @ (c :: * -> *) @ a ($dTaggedC :: Language.Fixpoint.Types.Constraints.TaggedC c a) (eta :: c a) -> case ((Language.Fixpoint.Types.Visitor.visitExpr @ [Language.Fixpoint.Types.Refinements.KVar] @ () (GHC.Base.$fMonoid[] @ Language.Fixpoint.Types.Refinements.KVar) Language.Fixpoint.Types.Visitor.isConcC1 GHC.Tuple.() (Language.Fixpoint.Types.Constraints.crhs @ c @ a $dTaggedC eta)) `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] <[Language.Fixpoint.Types.Refinements.KVar]>_N _R _N) (GHC.Types.[] @ Language.Fixpoint.Types.Refinements.KVar)) `cast` (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Refinements.Expr, [Language.Fixpoint.Types.Refinements.KVar])>_R) of wild { (,) ds1 y -> y }) -} 062a5730dbfc245df03924c69cf1ffd0 size :: Language.Fixpoint.Types.Visitor.Visitable t => t -> GHC.Integer.Type.Integer {- Arity: 2, Strictness: , Unfolding: InlineRule (0, True, True) Language.Fixpoint.Types.Visitor.size1 `cast` (forall (t :: <*>_N). _R ->_R _R ->_R Language.Fixpoint.Types.Visitor.N:MInt[0]) -} 6d78384a3f130f3de3968722533528a4 size1 :: Language.Fixpoint.Types.Visitor.Visitable t => t -> Language.Fixpoint.Types.Visitor.MInt {- Arity: 2, Strictness: , Unfolding: InlineRule (2, True, False) (\ @ t ($dVisitable :: Language.Fixpoint.Types.Visitor.Visitable t) (t1 :: t) -> case (($dVisitable `cast` (Language.Fixpoint.Types.Visitor.N:Visitable[0] _N) @ Language.Fixpoint.Types.Visitor.MInt @ () Language.Fixpoint.Types.Visitor.$fMonoidMInt Language.Fixpoint.Types.Visitor.size2 GHC.Tuple.() t1) `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N) Language.Fixpoint.Types.Visitor.$fMonoidMInt1 `cast` (Sym (Language.Fixpoint.Types.Visitor.N:MInt[0]))) `cast` (Data.Functor.Identity.N:Identity[0] <(t, Language.Fixpoint.Types.Visitor.MInt)>_R) of wild { (,) ds1 y -> y }) -} e60940a1984f76424a4f82ab08c3e1e8 size2 :: Language.Fixpoint.Types.Visitor.Visitor Language.Fixpoint.Types.Visitor.MInt () {- HasNoCafRefs, Strictness: m, Unfolding: (Language.Fixpoint.Types.Visitor.Visitor @ Language.Fixpoint.Types.Visitor.MInt @ () (GHC.Base.const @ () @ Language.Fixpoint.Types.Refinements.Expr) (Language.Fixpoint.Types.Visitor.$fSymConstsExpr3 @ ()) Language.Fixpoint.Types.Visitor.size3 `cast` (<()>_R ->_R _R ->_R Sym (Language.Fixpoint.Types.Visitor.N:MInt[0]))) -} 23a120d9952b4c634df4bc549485abcb size3 :: () -> Language.Fixpoint.Types.Refinements.Expr -> GHC.Integer.Type.Integer {- Arity: 2, HasNoCafRefs, Strictness: , Unfolding: InlineRule (2, True, True) (\ (ds :: ()) (ds1 :: Language.Fixpoint.Types.Refinements.Expr) -> Language.Fixpoint.Types.Visitor.lamSize4) -} b393e58e10c00b233928107eccbc8744 stripCasts :: Language.Fixpoint.Types.Refinements.Expr -> Language.Fixpoint.Types.Refinements.Expr {- Arity: 1, HasNoCafRefs, Unfolding: (\ (eta :: Language.Fixpoint.Types.Refinements.Expr) -> case ((Language.Fixpoint.Types.Visitor.visitExpr @ [GHC.Prim.Any] @ () (GHC.Base.$fMonoid[] @ GHC.Prim.Any) Language.Fixpoint.Types.Visitor.stripCasts1 GHC.Tuple.() eta) `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] <[GHC.Prim.Any]>_N _R _N) (GHC.Types.[] @ GHC.Prim.Any)) `cast` (Data.Functor.Identity.N:Identity[0] <(Language.Fixpoint.Types.Refinements.Expr, [GHC.Prim.Any])>_R) of wild { (,) x ds1 -> x }) -} eeab738715e0a6e025b3d35c9ee0c2c2 stripCasts1 :: Language.Fixpoint.Types.Visitor.Visitor [GHC.Prim.Any] () {- HasNoCafRefs, Unfolding: (Language.Fixpoint.Types.Visitor.Visitor @ [GHC.Prim.Any] @ () (GHC.Base.const @ () @ Language.Fixpoint.Types.Refinements.Expr) Language.Fixpoint.Types.Visitor.stripCasts2 Language.Fixpoint.Types.Visitor.mapExpr1) -} 19fc7fe5eac1479851ee222efedec15b stripCasts2 :: () -> Language.Fixpoint.Types.Refinements.Expr -> Language.Fixpoint.Types.Refinements.Expr {- Arity: 2, HasNoCafRefs, Unfolding: (\ (ds :: ()) (eta :: Language.Fixpoint.Types.Refinements.Expr) -> Language.Fixpoint.Types.Visitor.stripCasts3 eta) -} f73de4e0d9d452ec1dee1cac736f528d stripCasts3 :: Language.Fixpoint.Types.Refinements.Expr -> Language.Fixpoint.Types.Refinements.Expr {- Arity: 1, HasNoCafRefs, Strictness: , Unfolding: InlineRule (1, True, False) (\ (ds :: Language.Fixpoint.Types.Refinements.Expr) -> case ds of wild { DEFAULT -> wild Language.Fixpoint.Types.Refinements.ECst e ds1 -> e }) -} 2e358b05fee68f20d2f82c6e9bac564f trans :: (Language.Fixpoint.Types.Visitor.Visitable t, GHC.Base.Monoid a) => Language.Fixpoint.Types.Visitor.Visitor a ctx -> ctx -> a -> t -> t {- Arity: 6, HasNoCafRefs, Strictness: , Unfolding: InlineRule (6, True, False) (\ @ t @ a @ ctx ($dVisitable :: Language.Fixpoint.Types.Visitor.Visitable t) ($dMonoid :: GHC.Base.Monoid a) (v :: Language.Fixpoint.Types.Visitor.Visitor a ctx) (c :: ctx) (ds :: a) (z :: t) -> case (($dVisitable `cast` (Language.Fixpoint.Types.Visitor.N:Visitable[0] _N) @ a @ ctx $dMonoid v c z) `cast` (Control.Monad.Trans.State.Strict.N:StateT[0] _N _R _N) (GHC.Base.mempty @ a $dMonoid)) `cast` (Data.Functor.Identity.N:Identity[0] <(t, a)>_R) of wild { (,) x ds1 -> x }) -} dd72d11302601173cb1e870ddbe4fffb txExpr :: Language.Fixpoint.Types.Visitor.Visitor acc ctx -> ctx -> Language.Fixpoint.Types.Refinements.Expr -> Language.Fixpoint.Types.Refinements.Expr RecSel Left Language.Fixpoint.Types.Visitor.Visitor {- Arity: 1, HasNoCafRefs, Strictness: , Unfolding: InlineRule (1, True, False) (\ @ acc @ ctx (ds :: Language.Fixpoint.Types.Visitor.Visitor acc ctx) -> case ds of wild { Language.Fixpoint.Types.Visitor.Visitor ds1 ds2 ds3 -> ds2 }) -} cd46f15518f94a2d94677233a25f2ee9 visitExpr :: GHC.Base.Monoid a => Language.Fixpoint.Types.Visitor.Visitor a ctx -> ctx -> Language.Fixpoint.Types.Refinements.Expr -> Language.Fixpoint.Types.Visitor.VisitM a Language.Fixpoint.Types.Refinements.Expr {- Arity: 4, HasNoCafRefs, Strictness: -} instance GHC.Base.Monoid [Language.Fixpoint.Types.Visitor.MInt] = Language.Fixpoint.Types.Visitor.$fMonoidMInt instance Language.Fixpoint.Types.Visitor.SymConsts [Language.Fixpoint.Types.Refinements.Expr] = Language.Fixpoint.Types.Visitor.$fSymConstsExpr instance Language.Fixpoint.Types.Visitor.SymConsts [Language.Fixpoint.Types.Constraints.GInfo] = Language.Fixpoint.Types.Visitor.$fSymConstsGInfo instance Language.Fixpoint.Types.Visitor.SymConsts [Language.Fixpoint.Types.Refinements.Reft] = Language.Fixpoint.Types.Visitor.$fSymConstsReft instance Language.Fixpoint.Types.Visitor.SymConsts [Language.Fixpoint.Types.Constraints.SimpC] = Language.Fixpoint.Types.Visitor.$fSymConstsSimpC instance Language.Fixpoint.Types.Visitor.SymConsts [Language.Fixpoint.Types.Environments.SizedEnv] = Language.Fixpoint.Types.Visitor.$fSymConstsSizedEnv instance Language.Fixpoint.Types.Visitor.SymConsts [Language.Fixpoint.Types.Refinements.SortedReft] = Language.Fixpoint.Types.Visitor.$fSymConstsSortedReft instance Language.Fixpoint.Types.Visitor.SymConsts [Language.Fixpoint.Types.Constraints.SubC] = Language.Fixpoint.Types.Visitor.$fSymConstsSubC instance Language.Fixpoint.Types.Visitor.Visitable [(,)] = Language.Fixpoint.Types.Visitor.$fVisitable(,) instance Language.Fixpoint.Types.Visitor.Visitable [Language.Fixpoint.Types.Refinements.Expr] = Language.Fixpoint.Types.Visitor.$fVisitableExpr instance Language.Fixpoint.Types.Visitor.Visitable [Language.Fixpoint.Types.Constraints.GInfo] = Language.Fixpoint.Types.Visitor.$fVisitableGInfo instance Language.Fixpoint.Types.Visitor.Visitable [Language.Fixpoint.Types.Refinements.Reft] = Language.Fixpoint.Types.Visitor.$fVisitableReft instance Language.Fixpoint.Types.Visitor.Visitable [Language.Fixpoint.Types.Constraints.SimpC] = Language.Fixpoint.Types.Visitor.$fVisitableSimpC instance Language.Fixpoint.Types.Visitor.Visitable [Language.Fixpoint.Types.Environments.SizedEnv] = Language.Fixpoint.Types.Visitor.$fVisitableSizedEnv instance Language.Fixpoint.Types.Visitor.Visitable [Language.Fixpoint.Types.Refinements.SortedReft] = Language.Fixpoint.Types.Visitor.$fVisitableSortedReft instance Language.Fixpoint.Types.Visitor.Visitable [Language.Fixpoint.Types.Constraints.SubC] = Language.Fixpoint.Types.Visitor.$fVisitableSubC "SPEC/Language.Fixpoint.Types.Visitor $fApplicativeStateT @ Identity _" [ALWAYS] forall @ s ($dMonad :: GHC.Base.Monad Data.Functor.Identity.Identity) ($dFunctor :: GHC.Base.Functor Data.Functor.Identity.Identity) Control.Monad.Trans.State.Strict.$fApplicativeStateT @ Data.Functor.Identity.Identity @ s $dFunctor $dMonad = Language.Fixpoint.Types.Visitor.$fVisitableGInfo_$s$fApplicativeStateT @ s "SPEC/Language.Fixpoint.Types.Visitor $fApplicativeStateT_$c<*> @ Identity _" [ALWAYS] forall @ s ($dMonad :: GHC.Base.Monad Data.Functor.Identity.Identity) ($dFunctor :: GHC.Base.Functor Data.Functor.Identity.Identity) Control.Monad.Trans.State.Strict.$fApplicativeStateT_$c<*> @ Data.Functor.Identity.Identity @ s $dFunctor $dMonad = Language.Fixpoint.Types.Visitor.$fVisitableGInfo_$s$fApplicativeStateT_$c<*> @ s "SPEC/Language.Fixpoint.Types.Visitor $fApplicativeStateT_$cp1Applicative @ Identity _" [ALWAYS] forall @ s ($dMonad :: GHC.Base.Monad Data.Functor.Identity.Identity) ($dFunctor :: GHC.Base.Functor Data.Functor.Identity.Identity) Control.Monad.Trans.State.Strict.$fApplicativeStateT_$cp1Applicative @ Data.Functor.Identity.Identity @ s $dFunctor $dMonad = Language.Fixpoint.Types.Visitor.$fVisitableGInfo_$s$fApplicativeStateT_$cp1Applicative @ s "SPEC/Language.Fixpoint.Types.Visitor $fApplicativeStateT_$cpure @ Identity _" [ALWAYS] forall @ s ($dMonad :: GHC.Base.Monad Data.Functor.Identity.Identity) ($dFunctor :: GHC.Base.Functor Data.Functor.Identity.Identity) Control.Monad.Trans.State.Strict.$fApplicativeStateT_$cpure @ Data.Functor.Identity.Identity @ s $dFunctor $dMonad = Language.Fixpoint.Types.Visitor.$fVisitableGInfo_$s$fApplicativeStateT_$cpure @ s "SPEC/Language.Fixpoint.Types.Visitor $fFunctorStateT @ Identity _" [ALWAYS] forall @ s ($dFunctor :: GHC.Base.Functor Data.Functor.Identity.Identity) Control.Monad.Trans.State.Strict.$fFunctorStateT @ Data.Functor.Identity.Identity @ s $dFunctor = Language.Fixpoint.Types.Visitor.$fVisitableGInfo_$s$fFunctorStateT @ s "SPEC/Language.Fixpoint.Types.Visitor $fFunctorStateT_$cfmap @ Identity _" [ALWAYS] forall @ s ($dFunctor :: GHC.Base.Functor Data.Functor.Identity.Identity) Control.Monad.Trans.State.Strict.$fFunctorStateT_$cfmap @ Data.Functor.Identity.Identity @ s $dFunctor = Language.Fixpoint.Types.Visitor.$fVisitableGInfo_$s$fFunctorStateT_$cfmap @ s vectorised variables: vectorised tycons: vectorised reused tycons: parallel variables: parallel tycons: trusted: none require own pkg trusted: False