Prog "FiniteMap" ["Maybe","Prelude"] [TypeSyn ((Nothing,Nothing,"FiniteMap","LeKey")) Private [0] (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))),TypeSyn ((Nothing,Nothing,"FiniteMap","FiniteSet")) Private [0] (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","()")) []]),Type ((Nothing,Nothing,"FiniteMap","FM")) Public [0,1] [Cons ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) 2 Private [FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])),TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]]],Type ((Nothing,Nothing,"FiniteMap","FiniteMap")) Private [0,1] [Cons ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) 0 Private [],Cons ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) 5 Private [TVar 0,TVar 1,TCons ((Nothing,Nothing,"Prelude","Int")) [],TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1],TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]]]] [Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1])),"FiniteMap","emptyFM")) 1 Public (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1])) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)] (Comb ConsCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1])))),"FiniteMap","unitFM")) 3 Public (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (FuncType (TVar 0) (FuncType (TVar 1) (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1])))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1),(Just (TVar 0),2),(Just (TVar 1),3)] (Comb ConsCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))),"FiniteMap","unitFM'")) [Var ((Just (TVar 0),2)),Var ((Just (TVar 1),3))]])),Func ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))),"FiniteMap","unitFM'")) 2 Private (FuncType (TVar 0) (FuncType (TVar 1) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]))) (Rule [(Just (TVar 0),1),(Just (TVar 1),2)] (Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [Var ((Just (TVar 0),1)),Var ((Just (TVar 1),2)),Lit (Intc  1),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) [],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","listToFM")) 1 Public (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TVar 1]]) (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","addListToFM")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1])),"FiniteMap","emptyFM")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1])))),"FiniteMap","addToFM")) 3 Public (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TVar 1) (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1])))) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1),(Just (TVar 0),2),(Just (TVar 1),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1))) [Branch (Pattern ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),4),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),5)]) (Comb ConsCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),4)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))))),"FiniteMap","addToFM'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),4)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),5)),Var ((Just (TVar 0),2)),Var ((Just (TVar 1),3))]])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))))),"FiniteMap","addToFM'")) 4 Private (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TVar 1) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]))))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2),(Just (TVar 0),3),(Just (TVar 1),4)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TVar 1) (FuncType (TVar 1) (TVar 1))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","addToFM_C'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TVar 1) (FuncType (TVar 1) (TVar 1))),"FiniteMap","addToFM'._#lambda2")) [],Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2)),Var ((Just (TVar 0),3)),Var ((Just (TVar 1),4))])),Func ((Nothing,Just (FuncType (TVar 270) (FuncType (TVar 270) (TVar 270))),"FiniteMap","addToFM'._#lambda2")) 2 Private (FuncType (TVar 270) (FuncType (TVar 270) (TVar 270))) (Rule [(Just (TVar 270),1),(Just (TVar 270),2)] (Var ((Just (TVar 270),2)))),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TVar 1) (FuncType (TVar 1) (TVar 1))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","addToFM_C'")) 5 Private (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (FuncType (FuncType (TVar 1) (FuncType (TVar 1) (TVar 1))) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TVar 1) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1])))))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1),(Just (FuncType (TVar 1) (FuncType (TVar 1) (TVar 1))),2),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3),(Just (TVar 0),4),(Just (TVar 1),5)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []) (Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))),"FiniteMap","unitFM'")) [Var ((Just (TVar 0),4)),Var ((Just (TVar 1),5))]),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [(Just (TVar 0),6),(Just (TVar 1),7),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),8),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),9),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),10)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"Prelude","apply")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TVar 0),4))],Var ((Just (TVar 0),6))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))))),"FiniteMap","mkBalBranch")) [Var ((Just (TVar 0),6)),Var ((Just (TVar 1),7)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TVar 1) (FuncType (TVar 1) (TVar 1))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","addToFM_C'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (FuncType (TVar 1) (FuncType (TVar 1) (TVar 1))),2)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),9)),Var ((Just (TVar 0),4)),Var ((Just (TVar 1),5))],Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),10))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TVar 0),4)),Var ((Just (TVar 0),6))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [Var ((Just (TVar 0),4)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 1) (TVar 1)) (FuncType (TVar 1) (TVar 1))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 1) (FuncType (TVar 1) (TVar 1))) (FuncType (TVar 1) (FuncType (TVar 1) (TVar 1)))),"Prelude","apply")) [Var ((Just (FuncType (TVar 1) (FuncType (TVar 1) (TVar 1))),2)),Var ((Just (TVar 1),7))],Var ((Just (TVar 1),5))],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),8)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),9)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),10))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))))),"FiniteMap","mkBalBranch")) [Var ((Just (TVar 0),6)),Var ((Just (TVar 1),7)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),9)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TVar 1) (FuncType (TVar 1) (TVar 1))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","addToFM_C'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (FuncType (TVar 1) (FuncType (TVar 1) (TVar 1))),2)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),10)),Var ((Just (TVar 0),4)),Var ((Just (TVar 1),5))]])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","addListToFM")) 2 Public (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TVar 1]]) (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]))) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1))) [Branch (Pattern ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4)]) (Comb ConsCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","addListToFM'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]),2))]])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","addListToFM'")) 3 Private (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TVar 1]]) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1])))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]),3)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TVar 1) (FuncType (TVar 1) (TVar 1))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))))),"FiniteMap","addListToFM_C'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TVar 1) (FuncType (TVar 1) (TVar 1))),"FiniteMap","addListToFM'._#lambda3")) [],Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]),3))])),Func ((Nothing,Just (FuncType (TVar 246) (FuncType (TVar 246) (TVar 246))),"FiniteMap","addListToFM'._#lambda3")) 2 Private (FuncType (TVar 246) (FuncType (TVar 246) (TVar 246))) (Rule [(Just (TVar 246),1),(Just (TVar 246),2)] (Var ((Just (TVar 246),2)))),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TVar 1) (FuncType (TVar 1) (TVar 1))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))))),"FiniteMap","addListToFM_C'")) 4 Private (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (FuncType (FuncType (TVar 1) (FuncType (TVar 1) (TVar 1))) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TVar 1]]) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]))))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1),(Just (FuncType (TVar 1) (FuncType (TVar 1) (TVar 1))),2),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]),4)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"Prelude","foldl")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (FuncType (TVar 1) (FuncType (TVar 1) (TVar 1))) (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))))),"FiniteMap","addListToFM_C'.add.30")) [Var ((Just (FuncType (TVar 1) (FuncType (TVar 1) (TVar 1))),2)),Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1))],Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]),4))])),Func ((Nothing,Just (FuncType (FuncType (TVar 235) (FuncType (TVar 235) (TVar 235))) (FuncType (FuncType (TVar 234) (FuncType (TVar 234) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 234,TVar 235]) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 234,TVar 235]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 234,TVar 235]))))),"FiniteMap","addListToFM_C'.add.30")) 4 Private (FuncType (FuncType (TVar 235) (FuncType (TVar 235) (TVar 235))) (FuncType (FuncType (TVar 234) (FuncType (TVar 234) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 234,TVar 235]) (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 234,TVar 235]) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 234,TVar 235]))))) (Rule [(Just (FuncType (TVar 235) (FuncType (TVar 235) (TVar 235))),1),(Just (FuncType (TVar 234) (FuncType (TVar 234) (TCons (Nothing,Nothing,"Prelude","Bool") []))),2),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 234,TVar 235]),3),(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 234,TVar 235]),4)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 234,TVar 235]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 234) (FuncType (TVar 235) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 234,TVar 235]))),"Prelude","(,)")) [(Just (TVar 234),5),(Just (TVar 235),6)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 234) (FuncType (TVar 234) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TVar 235) (FuncType (TVar 235) (TVar 235))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 234,TVar 235]) (FuncType (TVar 234) (FuncType (TVar 235) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 234,TVar 235])))))),"FiniteMap","addToFM_C'")) [Var ((Just (FuncType (TVar 234) (FuncType (TVar 234) (TCons (Nothing,Nothing,"Prelude","Bool") []))),2)),Var ((Just (FuncType (TVar 235) (FuncType (TVar 235) (TVar 235))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 234,TVar 235]),3)),Var ((Just (TVar 234),5)),Var ((Just (TVar 235),6))])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 1,TVar 0]) (FuncType (TVar 1) (FuncType (TVar 0) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 1,TVar 0]))))),"FiniteMap","addToFM_C")) 4 Public (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 1,TVar 0]) (FuncType (TVar 1) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 1,TVar 0]))))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))),1),(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 1,TVar 0]),2),(Just (TVar 1),3),(Just (TVar 0),4)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 1,TVar 0]),2))) [Branch (Pattern ((Nothing,Just (FuncType (FuncType (TVar 1) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 0]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 1,TVar 0]))),"FiniteMap","FM")) [(Just (FuncType (TVar 1) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))),5),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 0]),6)]) (Comb ConsCall ((Nothing,Just (FuncType (FuncType (TVar 1) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 0]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 1,TVar 0]))),"FiniteMap","FM")) [Var ((Just (FuncType (TVar 1) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))),5)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 1) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 0]) (FuncType (TVar 1) (FuncType (TVar 0) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 0])))))),"FiniteMap","addToFM_C'")) [Var ((Just (FuncType (TVar 1) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))),5)),Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 0]),6)),Var ((Just (TVar 1),3)),Var ((Just (TVar 0),4))]])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 1,TVar 0]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TVar 0]]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 1,TVar 0])))),"FiniteMap","addListToFM_C")) 3 Public (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 1,TVar 0]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1,TVar 0]]) (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 1,TVar 0])))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))),1),(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 1,TVar 0]),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TVar 0]]),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 1,TVar 0]),2))) [Branch (Pattern ((Nothing,Just (FuncType (FuncType (TVar 1) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 0]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 1,TVar 0]))),"FiniteMap","FM")) [(Just (FuncType (TVar 1) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))),4),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 0]),5)]) (Comb ConsCall ((Nothing,Just (FuncType (FuncType (TVar 1) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 0]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 1,TVar 0]))),"FiniteMap","FM")) [Var ((Just (FuncType (TVar 1) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))),4)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 1) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 0]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TVar 0]]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 0]))))),"FiniteMap","addListToFM_C'")) [Var ((Just (FuncType (TVar 1) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))),4)),Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 0]),5)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1,TVar 0]]),3))]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","delFromFM")) 2 Public (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]))) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1),(Just (TVar 0),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1))) [Branch (Pattern ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4)]) (Comb ConsCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","delFromFM'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4)),Var ((Just (TVar 0),2))]])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","delFromFM'")) 3 Private (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1])))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2),(Just (TVar 0),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [(Just (TVar 0),4),(Just (TVar 1),5),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),6),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),8)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"Prelude","apply")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TVar 0),3))],Var ((Just (TVar 0),4))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))))),"FiniteMap","mkBalBranch")) [Var ((Just (TVar 0),4)),Var ((Just (TVar 1),5)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","delFromFM'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7)),Var ((Just (TVar 0),3))],Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),8))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TVar 0),3)),Var ((Just (TVar 0),4))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","glueBal")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),8))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))))),"FiniteMap","mkBalBranch")) [Var ((Just (TVar 0),4)),Var ((Just (TVar 1),5)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","delFromFM'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),8)),Var ((Just (TVar 0),3))]])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","delListFromFM")) 2 Public (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0]) (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]))) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1))) [Branch (Pattern ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4)]) (Comb ConsCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"Prelude","foldl")) [Comb (FuncPartCall 2) ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","delFromFM'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3))],Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),2))]])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (FuncType (TVar 1) (TVar 1)) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1])))),"FiniteMap","updFM")) 3 Public (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (FuncType (TVar 1) (TVar 1)) (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1])))) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1),(Just (TVar 0),2),(Just (FuncType (TVar 1) (TVar 1)),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1))) [Branch (Pattern ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),4),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),5)]) (Comb ConsCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),4)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 1) (TVar 1)) (FuncType (TVar 0) (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))))),"FiniteMap","updFM.upd.49")) [Var ((Just (FuncType (TVar 1) (TVar 1)),3)),Var ((Just (TVar 0),2)),Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),4)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),5))]])])),Func ((Nothing,Just (FuncType (FuncType (TVar 523) (TVar 523)) (FuncType (TVar 535) (FuncType (FuncType (TVar 535) (FuncType (TVar 535) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523]))))),"FiniteMap","updFM.upd.49")) 4 Private (FuncType (FuncType (TVar 523) (TVar 523)) (FuncType (TVar 535) (FuncType (FuncType (TVar 535) (FuncType (TVar 535) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 535,TVar 523]) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 535,TVar 523]))))) (Rule [(Just (FuncType (TVar 523) (TVar 523)),1),(Just (TVar 535),2),(Just (FuncType (TVar 535) (FuncType (TVar 535) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523]),4)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523]),4))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523]),"FiniteMap","EmptyFM")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523]),"FiniteMap","EmptyFM")) []),Branch (Pattern ((Nothing,Just (FuncType (TVar 535) (FuncType (TVar 523) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523])))))),"FiniteMap","Branch")) [(Just (TVar 535),5),(Just (TVar 523),6),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),7),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523]),8),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523]),9)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TVar 535) (FuncType (TVar 535) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TVar 535),2)),Var ((Just (TVar 535),5))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TVar 535) (FuncType (TVar 523) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523])))))),"FiniteMap","Branch")) [Var ((Just (TVar 535),5)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 523) (TVar 523)) (FuncType (TVar 523) (TVar 523))),"Prelude","apply")) [Var ((Just (FuncType (TVar 523) (TVar 523)),1)),Var ((Just (TVar 523),6))],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),7)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523]),8)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523]),9))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 535) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TVar 535) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 535) (FuncType (TVar 535) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TVar 535) (FuncType (TVar 535) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"Prelude","apply")) [Var ((Just (FuncType (TVar 535) (FuncType (TVar 535) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3)),Var ((Just (TVar 535),2))],Var ((Just (TVar 535),5))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TVar 535) (FuncType (TVar 523) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523])))))),"FiniteMap","Branch")) [Var ((Just (TVar 535),5)),Var ((Just (TVar 523),6)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),7)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 523) (TVar 523)) (FuncType (TVar 535) (FuncType (FuncType (TVar 535) (FuncType (TVar 535) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523]))))),"FiniteMap","updFM.upd.49")) [Var ((Just (FuncType (TVar 523) (TVar 523)),1)),Var ((Just (TVar 535),2)),Var ((Just (FuncType (TVar 535) (FuncType (TVar 535) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523]),8))],Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523]),9))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","otherwise")) []) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TVar 535) (FuncType (TVar 523) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523])))))),"FiniteMap","Branch")) [Var ((Just (TVar 535),5)),Var ((Just (TVar 523),6)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),7)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523]),8)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 523) (TVar 523)) (FuncType (TVar 535) (FuncType (FuncType (TVar 535) (FuncType (TVar 535) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523]))))),"FiniteMap","updFM.upd.49")) [Var ((Just (FuncType (TVar 523) (TVar 523)),1)),Var ((Just (TVar 535),2)),Var ((Just (FuncType (TVar 535) (FuncType (TVar 535) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523]),9))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 535,TVar 523]),"Prelude","failed")) [])])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1],TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]]))),"FiniteMap","splitFM")) 2 Public (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1],TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TVar 1]]]))) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1),(Just (TVar 0),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1],TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]]) (FuncType (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1],TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]])) (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 1]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1],TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]])))),"Prelude","maybe")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1],TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]]),"Prelude","Nothing")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1],TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]])))),"FiniteMap","splitFM._#lambda4")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1)),Var ((Just (TVar 0),2))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 1]))),"FiniteMap","lookupFM")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1)),Var ((Just (TVar 0),2))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 593,TVar 600]) (FuncType (TVar 593) (FuncType (TVar 600) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 593,TVar 600],TCons (Nothing,Nothing,"Prelude","(,)") [TVar 593,TVar 600]]])))),"FiniteMap","splitFM._#lambda4")) 3 Private (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 593,TVar 600]) (FuncType (TVar 593) (FuncType (TVar 600) (TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 593,TVar 600],TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 593,TVar 600]]])))) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 593,TVar 600]),1),(Just (TVar 593),2),(Just (TVar 600),3)] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 593,TVar 600],TCons (Nothing,Nothing,"Prelude","(,)") [TVar 593,TVar 600]]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 593,TVar 600],TCons (Nothing,Nothing,"Prelude","(,)") [TVar 593,TVar 600]]])),"Prelude","Just")) [Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 593,TVar 600]) (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 593,TVar 600]) (TCons (Nothing,Nothing,"Prelude","(,)") [TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 593,TVar 600],TCons (Nothing,Nothing,"Prelude","(,)") [TVar 593,TVar 600]]))),"Prelude","(,)")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 593,TVar 600]) (FuncType (TVar 593) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 593,TVar 600]))),"FiniteMap","delFromFM")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 593,TVar 600]),1)),Var ((Just (TVar 593),2))],Comb ConsCall ((Nothing,Just (FuncType (TVar 593) (FuncType (TVar 600) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 593,TVar 600]))),"Prelude","(,)")) [Var ((Just (TVar 593),2)),Var ((Just (TVar 600),3))]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","plusFM")) 2 Public (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]))) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1),(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1))) [Branch (Pattern ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),2))) [Branch (Pattern ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),5),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),6)]) (Comb ConsCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","plusFM'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),6))]])])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","plusFM'")) 3 Private (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1])))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []) (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3))),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [(Just (TVar 0),4),(Just (TVar 1),5),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),6),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []) (Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [Var ((Just (TVar 0),4)),Var ((Just (TVar 1),5)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),6)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),8))]),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [(Just (TVar 0),9),(Just (TVar 1),10),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),11),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),12),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),13)]) (Let [((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),14),Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [Var ((Just (TVar 0),4)),Var ((Just (TVar 1),5)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),6)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),8))])] (Let [((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),15),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","splitLT")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),14)),Var ((Just (TVar 0),9))])] (Let [((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),16),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","splitGT")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),14)),Var ((Just (TVar 0),9))])] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","mkVBalBranch")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TVar 0),9)),Var ((Just (TVar 1),10)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","plusFM'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),15)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),12))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","plusFM'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),16)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),13))]]))))])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 1,TVar 0]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 1,TVar 0]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 1,TVar 0])))),"FiniteMap","plusFM_C")) 3 Public (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 1,TVar 0]) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 1,TVar 0]) (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 1,TVar 0])))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))),1),(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 1,TVar 0]),2),(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 1,TVar 0]),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 1,TVar 0]),2))) [Branch (Pattern ((Nothing,Just (FuncType (FuncType (TVar 1) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 0]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 1,TVar 0]))),"FiniteMap","FM")) [(Just (FuncType (TVar 1) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))),4),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 0]),5)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 1,TVar 0]),3))) [Branch (Pattern ((Nothing,Just (FuncType (FuncType (TVar 1) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 0]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 1,TVar 0]))),"FiniteMap","FM")) [(Just (FuncType (TVar 1) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))),6),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 0]),7)]) (Comb ConsCall ((Nothing,Just (FuncType (FuncType (TVar 1) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 0]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 1,TVar 0]))),"FiniteMap","FM")) [Var ((Just (FuncType (TVar 1) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))),4)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 1) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 0]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 0]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 0]))))),"FiniteMap","plusFM_C'")) [Var ((Just (FuncType (TVar 1) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))),4)),Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TVar 0))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 0]),5)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 0]),7))]])])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TVar 1) (FuncType (TVar 1) (TVar 1))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))))),"FiniteMap","plusFM_C'")) 4 Private (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (FuncType (FuncType (TVar 1) (FuncType (TVar 1) (TVar 1))) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]))))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1),(Just (FuncType (TVar 1) (FuncType (TVar 1) (TVar 1))),2),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []) (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4))),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [(Just (TVar 0),5),(Just (TVar 1),6),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),7),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),8),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),9)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []) (Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [Var ((Just (TVar 0),5)),Var ((Just (TVar 1),6)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),7)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),8)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),9))]),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [(Just (TVar 0),10),(Just (TVar 1),11),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),12),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),13),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),14)]) (Let [((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),15),Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [Var ((Just (TVar 0),5)),Var ((Just (TVar 1),6)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),7)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),8)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),9))])] (Let [((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),16),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","splitLT")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),15)),Var ((Just (TVar 0),10))])] (Let [((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),17),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","splitGT")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),15)),Var ((Just (TVar 0),10))])] (Let [((Just (TVar 1),18),Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 1])))),"FiniteMap","lookupFM'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),15)),Var ((Just (TVar 0),10))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 1]),"Prelude","Nothing")) []) (Var ((Just (TVar 1),11))),Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 1])),"Prelude","Just")) [(Just (TVar 1),19)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 1) (TVar 1)) (FuncType (TVar 1) (TVar 1))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 1) (FuncType (TVar 1) (TVar 1))) (FuncType (TVar 1) (FuncType (TVar 1) (TVar 1)))),"Prelude","apply")) [Var ((Just (FuncType (TVar 1) (FuncType (TVar 1) (TVar 1))),2)),Var ((Just (TVar 1),19))],Var ((Just (TVar 1),11))])])] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","mkVBalBranch")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TVar 0),10)),Var ((Just (TVar 1),18)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TVar 1) (FuncType (TVar 1) (TVar 1))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))))),"FiniteMap","plusFM_C'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (FuncType (TVar 1) (FuncType (TVar 1) (TVar 1))),2)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),16)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),13))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TVar 1) (FuncType (TVar 1) (TVar 1))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))))),"FiniteMap","plusFM_C'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (FuncType (TVar 1) (FuncType (TVar 1) (TVar 1))),2)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),17)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),14))]])))))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","minusFM")) 2 Public (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]))) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1),(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1))) [Branch (Pattern ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),2))) [Branch (Pattern ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),5),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),6)]) (Comb ConsCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","minusFM'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),6))]])])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","minusFM'")) 3 Private (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 2]) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1])))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [(Just (TVar 0),4),(Just (TVar 1),5),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),6),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),8)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]),3))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]),"FiniteMap","EmptyFM")) []) (Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [Var ((Just (TVar 0),4)),Var ((Just (TVar 1),5)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),6)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),8))]),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 2) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2])))))),"FiniteMap","Branch")) [(Just (TVar 0),9),(Just (TVar 2),10),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),11),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]),12),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]),13)]) (Let [((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),14),Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [Var ((Just (TVar 0),4)),Var ((Just (TVar 1),5)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),6)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),8))])] (Let [((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),15),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","splitLT")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),14)),Var ((Just (TVar 0),9))])] (Let [((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),16),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","splitGT")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),14)),Var ((Just (TVar 0),9))])] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","glueVBal")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","minusFM'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),15)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]),12))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","minusFM'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),16)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]),13))]]))))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","intersectFM")) 2 Public (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]))) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1),(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1))) [Branch (Pattern ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),2))) [Branch (Pattern ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),5),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),6)]) (Comb ConsCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","intersectFM'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),6))]])])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2])))),"FiniteMap","intersectFM'")) 3 Private (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 2]) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 2])))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]),3)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TVar 1) (FuncType (TVar 2) (TVar 2))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]))))),"FiniteMap","intersectFM_C'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TVar 1) (FuncType (TVar 2) (TVar 2))),"FiniteMap","intersectFM'._#lambda6")) [],Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]),3))])),Func ((Nothing,Just (FuncType (TVar 1051) (FuncType (TVar 1052) (TVar 1052))),"FiniteMap","intersectFM'._#lambda6")) 2 Private (FuncType (TVar 1051) (FuncType (TVar 1052) (TVar 1052))) (Rule [(Just (TVar 1051),1),(Just (TVar 1052),2)] (Var ((Just (TVar 1052),2)))),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TVar 1))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 2,TVar 0]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 2,TVar 0]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 2,TVar 1])))),"FiniteMap","intersectFM_C")) 3 Public (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TVar 1))) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 2,TVar 0]) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 2,TVar 0]) (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 2,TVar 1])))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TVar 1))),1),(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 2,TVar 0]),2),(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 2,TVar 0]),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 2,TVar 0]),2))) [Branch (Pattern ((Nothing,Just (FuncType (FuncType (TVar 2) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 2,TVar 0]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 2,TVar 0]))),"FiniteMap","FM")) [(Just (FuncType (TVar 2) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","Bool") []))),4),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 2,TVar 0]),5)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 2,TVar 0]),3))) [Branch (Pattern ((Nothing,Just (FuncType (FuncType (TVar 2) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 2,TVar 0]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 2,TVar 0]))),"FiniteMap","FM")) [(Just (FuncType (TVar 2) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","Bool") []))),6),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 2,TVar 0]),7)]) (Comb ConsCall ((Nothing,Just (FuncType (FuncType (TVar 2) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 2,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 2,TVar 1]))),"FiniteMap","FM")) [Var ((Just (FuncType (TVar 2) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","Bool") []))),4)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 2) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TVar 1))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 2,TVar 0]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 2,TVar 0]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 2,TVar 1]))))),"FiniteMap","intersectFM_C'")) [Var ((Just (FuncType (TVar 2) (FuncType (TVar 2) (TCons (Nothing,Nothing,"Prelude","Bool") []))),4)),Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TVar 1))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 2,TVar 0]),5)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 2,TVar 0]),7))]])])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TVar 1) (FuncType (TVar 2) (TVar 3))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 3]))))),"FiniteMap","intersectFM_C'")) 4 Private (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (FuncType (FuncType (TVar 1) (FuncType (TVar 2) (TVar 3))) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 2]) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 3]))))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1),(Just (FuncType (TVar 1) (FuncType (TVar 2) (TVar 3))),2),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]),4)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]),4))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]),"FiniteMap","EmptyFM")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 3]),"FiniteMap","EmptyFM")) []),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 2) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2])))))),"FiniteMap","Branch")) [(Just (TVar 0),5),(Just (TVar 2),6),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),7),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]),8),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]),9)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 3]),"FiniteMap","EmptyFM")) []),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [(Just (TVar 0),10),(Just (TVar 1),11),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),12),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),13),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),14)]) (Let [((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),15),Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [Var ((Just (TVar 0),10)),Var ((Just (TVar 1),11)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),12)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),13)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),14))])] (Let [((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),16),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","splitLT")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),15)),Var ((Just (TVar 0),5))])] (Let [((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),17),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","splitGT")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),15)),Var ((Just (TVar 0),5))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 1]),18),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 1])))),"FiniteMap","lookupFM'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),15)),Var ((Just (TVar 0),5))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 1]),19),Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 1]),18)))] (Let [((Just (TVar 1),20),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 1]) (TVar 1)),"FiniteMap","intersectFM_C'._#selFP3#elt1'")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 1]),19))])] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 1]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Maybe","isJust")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 1]),18))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TVar 0) (FuncType (TVar 3) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 3]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 3]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 3])))))),"FiniteMap","mkVBalBranch")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TVar 0),5)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 2) (TVar 3)) (FuncType (TVar 2) (TVar 3))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 1) (FuncType (TVar 2) (TVar 3))) (FuncType (TVar 1) (FuncType (TVar 2) (TVar 3)))),"Prelude","apply")) [Var ((Just (FuncType (TVar 1) (FuncType (TVar 2) (TVar 3))),2)),Var ((Just (TVar 1),20))],Var ((Just (TVar 2),6))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TVar 1) (FuncType (TVar 2) (TVar 3))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 3]))))),"FiniteMap","intersectFM_C'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (FuncType (TVar 1) (FuncType (TVar 2) (TVar 3))),2)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),16)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]),8))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TVar 1) (FuncType (TVar 2) (TVar 3))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 3]))))),"FiniteMap","intersectFM_C'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (FuncType (TVar 1) (FuncType (TVar 2) (TVar 3))),2)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),17)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]),9))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","otherwise")) []) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 3]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 3]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 3])))),"FiniteMap","glueVBal")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TVar 1) (FuncType (TVar 2) (TVar 3))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 3]))))),"FiniteMap","intersectFM_C'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (FuncType (TVar 1) (FuncType (TVar 2) (TVar 3))),2)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),16)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]),8))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TVar 1) (FuncType (TVar 2) (TVar 3))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 3]))))),"FiniteMap","intersectFM_C'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (FuncType (TVar 1) (FuncType (TVar 2) (TVar 3))),2)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),17)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]),9))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 3]),"Prelude","failed")) [])])])))))))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 1000]) (TVar 1000)),"FiniteMap","intersectFM_C'._#selFP3#elt1'")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Maybe")) [TVar 1000]) (TVar 1000)) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 1000]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 1000]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 1000) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 1000])),"Prelude","Just")) [(Just (TVar 1000),2)]) (Var ((Just (TVar 1000),2)))])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TVar 2) (TVar 2)))) (FuncType (TVar 2) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TVar 2)))),"FiniteMap","foldFM")) 3 Public (FuncType (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TVar 2) (TVar 2)))) (FuncType (TVar 2) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (TVar 2)))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TVar 2) (TVar 2)))),1),(Just (TVar 2),2),(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),3))) [Branch (Pattern ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),4),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),5)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TVar 2) (TVar 2)))) (FuncType (TVar 2) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TVar 2))))),"FiniteMap","foldFM'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),4)),Var ((Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TVar 2) (TVar 2)))),1)),Var ((Just (TVar 2),2)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),5))])])),Func ((Nothing,Just (FuncType (TVar 0) (FuncType (FuncType (TVar 1) (FuncType (TVar 2) (FuncType (TVar 3) (TVar 3)))) (FuncType (TVar 3) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 2]) (TVar 3))))),"FiniteMap","foldFM'")) 4 Private (FuncType (TVar 0) (FuncType (FuncType (TVar 1) (FuncType (TVar 2) (FuncType (TVar 3) (TVar 3)))) (FuncType (TVar 3) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 1,TVar 2]) (TVar 3))))) (Rule [(Just (TVar 0),1),(Just (FuncType (TVar 1) (FuncType (TVar 2) (FuncType (TVar 3) (TVar 3)))),2),(Just (TVar 3),3),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 2]),4)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 2]),4))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 2]),"FiniteMap","EmptyFM")) []) (Var ((Just (TVar 3),3))),Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (FuncType (TVar 2) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 2]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 2]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 2])))))),"FiniteMap","Branch")) [(Just (TVar 1),5),(Just (TVar 2),6),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),7),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 2]),8),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 2]),9)]) (Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (FuncType (FuncType (TVar 1) (FuncType (TVar 2) (FuncType (TVar 3) (TVar 3)))) (FuncType (TVar 3) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 2]) (TVar 3))))),"FiniteMap","foldFM'")) [Var ((Just (TVar 0),1)),Var ((Just (FuncType (TVar 1) (FuncType (TVar 2) (FuncType (TVar 3) (TVar 3)))),2)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 3) (TVar 3)) (FuncType (TVar 3) (TVar 3))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 2) (FuncType (TVar 3) (TVar 3))) (FuncType (TVar 2) (FuncType (TVar 3) (TVar 3)))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 1) (FuncType (TVar 2) (FuncType (TVar 3) (TVar 3)))) (FuncType (TVar 1) (FuncType (TVar 2) (FuncType (TVar 3) (TVar 3))))),"Prelude","apply")) [Var ((Just (FuncType (TVar 1) (FuncType (TVar 2) (FuncType (TVar 3) (TVar 3)))),2)),Var ((Just (TVar 1),5))],Var ((Just (TVar 2),6))],Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (FuncType (FuncType (TVar 1) (FuncType (TVar 2) (FuncType (TVar 3) (TVar 3)))) (FuncType (TVar 3) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 2]) (TVar 3))))),"FiniteMap","foldFM'")) [Var ((Just (TVar 0),1)),Var ((Just (FuncType (TVar 1) (FuncType (TVar 2) (FuncType (TVar 3) (TVar 3)))),2)),Var ((Just (TVar 3),3)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 2]),9))]],Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 2]),8))])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 1) (TVar 2))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 2]))),"FiniteMap","mapFM")) 2 Public (FuncType (FuncType (TVar 0) (FuncType (TVar 1) (TVar 2))) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 2]))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 1) (TVar 2))),1),(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),2))) [Branch (Pattern ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4)]) (Comb ConsCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 2]))),"FiniteMap","FM")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TVar 0) (FuncType (TVar 1) (TVar 2))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 2])))),"FiniteMap","mapFM'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3)),Var ((Just (FuncType (TVar 0) (FuncType (TVar 1) (TVar 2))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4))]])])),Func ((Nothing,Just (FuncType (TVar 0) (FuncType (FuncType (TVar 1) (FuncType (TVar 2) (TVar 3))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 2]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 3])))),"FiniteMap","mapFM'")) 3 Private (FuncType (TVar 0) (FuncType (FuncType (TVar 1) (FuncType (TVar 2) (TVar 3))) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 1,TVar 2]) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 1,TVar 3])))) (Rule [(Just (TVar 0),1),(Just (FuncType (TVar 1) (FuncType (TVar 2) (TVar 3))),2),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 2]),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 2]),3))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 2]),"FiniteMap","EmptyFM")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 3]),"FiniteMap","EmptyFM")) []),Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (FuncType (TVar 2) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 2]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 2]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 2])))))),"FiniteMap","Branch")) [(Just (TVar 1),4),(Just (TVar 2),5),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),6),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 2]),7),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 2]),8)]) (Comb ConsCall ((Nothing,Just (FuncType (TVar 1) (FuncType (TVar 3) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 3]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 3]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 3])))))),"FiniteMap","Branch")) [Var ((Just (TVar 1),4)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 2) (TVar 3)) (FuncType (TVar 2) (TVar 3))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 1) (FuncType (TVar 2) (TVar 3))) (FuncType (TVar 1) (FuncType (TVar 2) (TVar 3)))),"Prelude","apply")) [Var ((Just (FuncType (TVar 1) (FuncType (TVar 2) (TVar 3))),2)),Var ((Just (TVar 1),4))],Var ((Just (TVar 2),5))],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),6)),Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (FuncType (FuncType (TVar 1) (FuncType (TVar 2) (TVar 3))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 2]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 3])))),"FiniteMap","mapFM'")) [Var ((Just (TVar 0),1)),Var ((Just (FuncType (TVar 1) (FuncType (TVar 2) (TVar 3))),2)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 2]),7))],Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (FuncType (FuncType (TVar 1) (FuncType (TVar 2) (TVar 3))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 2]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 3])))),"FiniteMap","mapFM'")) [Var ((Just (TVar 0),1)),Var ((Just (FuncType (TVar 1) (FuncType (TVar 2) (TVar 3))),2)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 1,TVar 2]),8))]])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","filterFM")) 2 Public (FuncType (FuncType (TVar 0) (FuncType (TVar 1) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1),(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),2))) [Branch (Pattern ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4)]) (Comb ConsCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","filterFM'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3)),Var ((Just (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4))]])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","filterFM'")) 3 Private (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (FuncType (FuncType (TVar 0) (FuncType (TVar 1) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1])))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1),(Just (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))),2),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [(Just (TVar 0),4),(Just (TVar 1),5),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),6),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),8)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"Prelude","apply")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))),2)),Var ((Just (TVar 0),4))],Var ((Just (TVar 1),5))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","mkVBalBranch")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TVar 0),4)),Var ((Just (TVar 1),5)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","filterFM'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))),2)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","filterFM'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))),2)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),8))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","otherwise")) []) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","glueVBal")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","filterFM'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))),2)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","filterFM'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Bool") []))),2)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),8))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"Prelude","failed")) [])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FiniteMap","sizeFM")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1))) [Branch (Pattern ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),2),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []) (Lit (Intc  0)),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [(Just (TVar 0),4),(Just (TVar 1),5),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),6),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),8)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),6)))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FiniteMap","sizeFM'")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []) (Lit (Intc  0)),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [(Just (TVar 0),2),(Just (TVar 1),3),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),4),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),5),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),6)]) (Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),4)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"FiniteMap","eqFM")) 2 Public (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1),(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","&&")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FiniteMap","sizeFM")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FiniteMap","sizeFM")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),2))]],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]])),"FiniteMap","fmToList")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]])),"FiniteMap","fmToList")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),2))]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FiniteMap","isEmptyFM")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FiniteMap","sizeFM")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1))],Lit (Intc  0)])),Func ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"FiniteMap","elemFM")) 2 Public (FuncType (TVar 0) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (Rule [(Just (TVar 0),1),(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 1]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Maybe","isJust")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 1]))),"FiniteMap","lookupFM")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),2)),Var ((Just (TVar 0),1))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 1]))),"FiniteMap","lookupFM")) 2 Public (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Maybe")) [TVar 1]))) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1),(Just (TVar 0),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1))) [Branch (Pattern ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4)]) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 1])))),"FiniteMap","lookupFM'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),3)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4)),Var ((Just (TVar 0),2))])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 1])))),"FiniteMap","lookupFM'")) 3 Private (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Maybe")) [TVar 1])))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2),(Just (TVar 0),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 1]),"Prelude","Nothing")) []),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [(Just (TVar 0),4),(Just (TVar 1),5),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),6),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),8)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"Prelude","apply")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TVar 0),3))],Var ((Just (TVar 0),4))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 1])))),"FiniteMap","lookupFM'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7)),Var ((Just (TVar 0),3))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TVar 0),3)),Var ((Just (TVar 0),4))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 1])),"Prelude","Just")) [Var ((Just (TVar 1),5))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 1])))),"FiniteMap","lookupFM'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),8)),Var ((Just (TVar 0),3))])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TVar 1) (FuncType (TVar 0) (TVar 1)))),"FiniteMap","lookupWithDefaultFM")) 3 Public (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (FuncType (TVar 1) (FuncType (TVar 0) (TVar 1)))) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1),(Just (TVar 1),2),(Just (TVar 0),3)] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 1]))),"FiniteMap","lookupFM")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1)),Var ((Just (TVar 0),3))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 1]),"Prelude","Nothing")) []) (Var ((Just (TVar 1),2))),Branch (Pattern ((Nothing,Just (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","Maybe") [TVar 1])),"Prelude","Just")) [(Just (TVar 1),4)]) (Var ((Just (TVar 1),4)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"FiniteMap","keyOrder")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])))) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1))) [Branch (Pattern ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),2),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3)]) (Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]])),"FiniteMap","minFM")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TVar 1]])) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]])) (FuncType (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]])),"FiniteMap","minFM.min.215")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])),"FiniteMap","tree")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]])),"FiniteMap","minFM.min.215")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TVar 1]])) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]),"Prelude","Nothing")) []),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [(Just (TVar 0),2),(Just (TVar 1),3),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),4),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),5),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),6)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),5)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]])),"Prelude","Just")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]))),"Prelude","(,)")) [Var ((Just (TVar 0),2)),Var ((Just (TVar 1),3))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","otherwise")) []) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]])),"FiniteMap","minFM.min.215")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),5))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]),"Prelude","failed")) [])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]])),"FiniteMap","maxFM")) 0 Public (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TVar 1]])) (Rule [] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]])) (FuncType (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]])))),"Prelude",".")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]])),"FiniteMap","maxFM.max.223")) [],Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])),"FiniteMap","tree")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]])),"FiniteMap","maxFM.max.223")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","Maybe")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TVar 1]])) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]),"Prelude","Nothing")) []),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [(Just (TVar 0),2),(Just (TVar 1),3),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),4),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),5),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),6)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),6)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]])),"Prelude","Just")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]))),"Prelude","(,)")) [Var ((Just (TVar 0),2)),Var ((Just (TVar 1),3))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","otherwise")) []) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]])),"FiniteMap","maxFM.max.223")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),6))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Maybe") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]),"Prelude","failed")) [])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]])),"FiniteMap","fmToList")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TVar 1]])) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]])))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]])))),"FiniteMap","foldFM")) [Comb (FuncPartCall 3) ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]])))),"FiniteMap","fmToList._#lambda8")) [],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]),"Prelude","[]")) [],Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1))])),Func ((Nothing,Just (FuncType (TVar 1237) (FuncType (TVar 1238) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1237,TVar 1238]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1237,TVar 1238]])))),"FiniteMap","fmToList._#lambda8")) 3 Private (FuncType (TVar 1237) (FuncType (TVar 1238) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1237,TVar 1238]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1237,TVar 1238]])))) (Rule [(Just (TVar 1237),1),(Just (TVar 1238),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1237,TVar 1238]]),3)] (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1237,TVar 1238]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1237,TVar 1238]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1237,TVar 1238]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 1237) (FuncType (TVar 1238) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1237,TVar 1238]))),"Prelude","(,)")) [Var ((Just (TVar 1237),1)),Var ((Just (TVar 1238),2))],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1237,TVar 1238]]),3))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])),"FiniteMap","keysFM")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0])) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])))),"FiniteMap","foldFM")) [Comb (FuncPartCall 3) ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])))),"FiniteMap","keysFM._#lambda9")) [],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),"Prelude","[]")) [],Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1))])),Func ((Nothing,Just (FuncType (TVar 1356) (FuncType (TVar 1353) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1356]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1356])))),"FiniteMap","keysFM._#lambda9")) 3 Private (FuncType (TVar 1356) (FuncType (TVar 1353) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 1356]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 1356])))) (Rule [(Just (TVar 1356),1),(Just (TVar 1353),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1356]),3)] (Comb ConsCall ((Nothing,Just (FuncType (TVar 1356) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1356]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1356]))),"Prelude",":")) [Var ((Just (TVar 1356),1)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1356]),3))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1])),"FiniteMap","eltsFM")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 1])) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1])))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1])))),"FiniteMap","foldFM")) [Comb (FuncPartCall 3) ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1])))),"FiniteMap","eltsFM._#lambda10")) [],Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1]),"Prelude","[]")) [],Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1))])),Func ((Nothing,Just (FuncType (TVar 1363) (FuncType (TVar 1367) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1367]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1367])))),"FiniteMap","eltsFM._#lambda10")) 3 Private (FuncType (TVar 1363) (FuncType (TVar 1367) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 1367]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 1367])))) (Rule [(Just (TVar 1363),1),(Just (TVar 1367),2),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1367]),3)] (Comb ConsCall ((Nothing,Just (FuncType (TVar 1367) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1367]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1367]))),"Prelude",":")) [Var ((Just (TVar 1367),2)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 1367]),3))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]])),"FiniteMap","fmToListPreOrder")) 1 Public (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TVar 1]])) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1))) [Branch (Pattern ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),2),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]))),"FiniteMap","fmToListPreOrder.pre.243")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]),"Prelude","[]")) []])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]))),"FiniteMap","fmToListPreOrder.pre.243")) 2 Private (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TVar 1]]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TVar 1]]))) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),1))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []) (Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]),2))),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [(Just (TVar 0),3),(Just (TVar 1),4),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),5),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),6),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7)]) (Comb ConsCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]))),"Prelude",":")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]))),"Prelude","(,)")) [Var ((Just (TVar 0),3)),Var ((Just (TVar 1),4))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]))),"FiniteMap","fmToListPreOrder.pre.243")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),6)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]))),"FiniteMap","fmToListPreOrder.pre.243")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7)),Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]]),2))]]])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]))),"FiniteMap","fmSortBy")) 2 Public (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0]))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),2)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])),"FiniteMap","keysFM")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]))),"FiniteMap","listToFM")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","()") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]]))),"Prelude","zip")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),2)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","()") []) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","()") []])),"Prelude","repeat")) [Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","()") []),"Prelude","()")) []]]]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])),"FiniteMap","tree")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1])) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]),1))) [Branch (Pattern ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TVar 1]))),"FiniteMap","FM")) [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),2),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3)]) (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3)))])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"FiniteMap","toGT")) 3 Private (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1),(Just (TVar 0),2),(Just (TVar 0),3)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","&&")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Bool") []) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"Prelude","not")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"Prelude","apply")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TVar 0),2))],Var ((Just (TVar 0),3))]],Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","/=")) [Var ((Just (TVar 0),2)),Var ((Just (TVar 0),3))]])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FiniteMap","isEmptyFM'")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),1)] (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FiniteMap","sizeFM'")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),1))],Lit (Intc  0)])),Func ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Int") []),"FiniteMap","sIZE_RATIO")) 0 Private (TCons ((Nothing,Nothing,"Prelude","Int")) []) (Rule [] (Lit (Intc  5))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","mkBranch")) 5 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1])))))) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1),(Just (TVar 0),2),(Just (TVar 1),3),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),5)] (Let [((Just (TCons (Nothing,Nothing,"Prelude","Int") []),6),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FiniteMap","sizeFM'")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","Int") []),7),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FiniteMap","sizeFM'")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),5))])] (Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [Var ((Just (TVar 0),2)),Var ((Just (TVar 1),3)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FiniteMap","mkBranch.unbox.264")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Lit (Intc  1),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),6))],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),7))]],Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),5))])))),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FiniteMap","mkBranch.unbox.264")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","Int")) []) (TCons ((Nothing,Nothing,"Prelude","Int")) [])) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)] (Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),1)))),Func ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))))),"FiniteMap","mkBalBranch")) 4 Private (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]))))) (Rule [(Just (TVar 0),1),(Just (TVar 1),2),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4)] (Let [((Just (TCons (Nothing,Nothing,"Prelude","Int") []),5),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FiniteMap","sizeFM'")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","Int") []),6),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FiniteMap","sizeFM'")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4))])] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","<")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","+")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),5)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),6))],Lit (Intc  2)]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","mkBranch")) [Lit (Intc  1),Var ((Just (TVar 0),1)),Var ((Just (TVar 1),2)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude",">")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),6)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","*")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Int") []),"FiniteMap","sIZE_RATIO")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),5))]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [(Just (TVar 0),7),(Just (TVar 1),8),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),9),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),10),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),11)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","<")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FiniteMap","sizeFM'")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),10))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","*")) [Lit (Intc  2),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FiniteMap","sizeFM'")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),11))]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TVar 1) (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))))),"FiniteMap","mkBalBranch.single_L.273")) [Var ((Just (TVar 1),2)),Var ((Just (TVar 0),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TVar 1) (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))))),"FiniteMap","mkBalBranch.double_L.273")) [Var ((Just (TVar 1),2)),Var ((Just (TVar 0),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4))])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"Prelude","failed")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude",">")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),5)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","*")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Int") []),"FiniteMap","sIZE_RATIO")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),6))]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Case  Rigid (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [(Just (TVar 0),12),(Just (TVar 1),13),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),14),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),15),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),16)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","<")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FiniteMap","sizeFM'")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),16))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","*")) [Lit (Intc  2),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FiniteMap","sizeFM'")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),15))]]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TVar 1) (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))))),"FiniteMap","mkBalBranch.single_R.273")) [Var ((Just (TVar 1),2)),Var ((Just (TVar 0),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TVar 1) (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))))),"FiniteMap","mkBalBranch.double_R.273")) [Var ((Just (TVar 1),2)),Var ((Just (TVar 0),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4))])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"Prelude","failed")) [])]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","otherwise")) []) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","mkBranch")) [Lit (Intc  2),Var ((Just (TVar 0),1)),Var ((Just (TVar 1),2)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"Prelude","failed")) [])])])])])))),Func ((Nothing,Just (FuncType (TVar 170) (FuncType (TVar 169) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]))))),"FiniteMap","mkBalBranch.single_L.273")) 4 Private (FuncType (TVar 170) (FuncType (TVar 169) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 169,TVar 170]) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 169,TVar 170]) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 169,TVar 170]))))) (Rule [(Just (TVar 170),1),(Just (TVar 169),2),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),3),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),4)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 169) (FuncType (TVar 170) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170])))))),"FiniteMap","Branch")) [(Just (TVar 169),5),(Just (TVar 170),6),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),7),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),8),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),9)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 169) (FuncType (TVar 170) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170])))))),"FiniteMap","mkBranch")) [Lit (Intc  3),Var ((Just (TVar 169),5)),Var ((Just (TVar 170),6)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 169) (FuncType (TVar 170) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170])))))),"FiniteMap","mkBranch")) [Lit (Intc  4),Var ((Just (TVar 169),2)),Var ((Just (TVar 170),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),3)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),8))],Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),9))])])),Func ((Nothing,Just (FuncType (TVar 170) (FuncType (TVar 169) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]))))),"FiniteMap","mkBalBranch.double_L.273")) 4 Private (FuncType (TVar 170) (FuncType (TVar 169) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 169,TVar 170]) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 169,TVar 170]) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 169,TVar 170]))))) (Rule [(Just (TVar 170),1),(Just (TVar 169),2),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),3),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),4)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),4))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 169) (FuncType (TVar 170) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170])))))),"FiniteMap","Branch")) [(Just (TVar 169),5),(Just (TVar 170),6),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),7),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),8),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),9)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),8))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 169) (FuncType (TVar 170) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170])))))),"FiniteMap","Branch")) [(Just (TVar 169),10),(Just (TVar 170),11),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),12),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),13),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),14)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 169) (FuncType (TVar 170) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170])))))),"FiniteMap","mkBranch")) [Lit (Intc  5),Var ((Just (TVar 169),10)),Var ((Just (TVar 170),11)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 169) (FuncType (TVar 170) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170])))))),"FiniteMap","mkBranch")) [Lit (Intc  6),Var ((Just (TVar 169),2)),Var ((Just (TVar 170),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),3)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),13))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 169) (FuncType (TVar 170) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170])))))),"FiniteMap","mkBranch")) [Lit (Intc  7),Var ((Just (TVar 169),5)),Var ((Just (TVar 170),6)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),14)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),9))]])])])),Func ((Nothing,Just (FuncType (TVar 170) (FuncType (TVar 169) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]))))),"FiniteMap","mkBalBranch.single_R.273")) 4 Private (FuncType (TVar 170) (FuncType (TVar 169) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 169,TVar 170]) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 169,TVar 170]) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 169,TVar 170]))))) (Rule [(Just (TVar 170),1),(Just (TVar 169),2),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),3),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),4)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 169) (FuncType (TVar 170) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170])))))),"FiniteMap","Branch")) [(Just (TVar 169),5),(Just (TVar 170),6),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),7),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),8),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),9)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 169) (FuncType (TVar 170) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170])))))),"FiniteMap","mkBranch")) [Lit (Intc  8),Var ((Just (TVar 169),5)),Var ((Just (TVar 170),6)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),8)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 169) (FuncType (TVar 170) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170])))))),"FiniteMap","mkBranch")) [Lit (Intc  9),Var ((Just (TVar 169),2)),Var ((Just (TVar 170),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),9)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),4))]])])),Func ((Nothing,Just (FuncType (TVar 170) (FuncType (TVar 169) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]))))),"FiniteMap","mkBalBranch.double_R.273")) 4 Private (FuncType (TVar 170) (FuncType (TVar 169) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 169,TVar 170]) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 169,TVar 170]) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 169,TVar 170]))))) (Rule [(Just (TVar 170),1),(Just (TVar 169),2),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),3),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),4)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),3))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 169) (FuncType (TVar 170) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170])))))),"FiniteMap","Branch")) [(Just (TVar 169),5),(Just (TVar 170),6),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),7),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),8),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),9)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),9))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 169) (FuncType (TVar 170) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170])))))),"FiniteMap","Branch")) [(Just (TVar 169),10),(Just (TVar 170),11),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),12),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),13),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),14)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 169) (FuncType (TVar 170) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170])))))),"FiniteMap","mkBranch")) [Lit (Intc  10),Var ((Just (TVar 169),10)),Var ((Just (TVar 170),11)),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 169) (FuncType (TVar 170) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170])))))),"FiniteMap","mkBranch")) [Lit (Intc  11),Var ((Just (TVar 169),5)),Var ((Just (TVar 170),6)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),8)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),13))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 169) (FuncType (TVar 170) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170])))))),"FiniteMap","mkBranch")) [Lit (Intc  12),Var ((Just (TVar 169),2)),Var ((Just (TVar 170),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),14)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 169,TVar 170]),4))]])])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","mkVBalBranch")) 5 Private (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1])))))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1),(Just (TVar 0),2),(Just (TVar 1),3),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),5)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))))),"FiniteMap","addToFM'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),5)),Var ((Just (TVar 0),2)),Var ((Just (TVar 1),3))]),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [(Just (TVar 0),6),(Just (TVar 1),7),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),8),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),9),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),10)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),5))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))))),"FiniteMap","addToFM'")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [Var ((Just (TVar 0),6)),Var ((Just (TVar 1),7)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),8)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),9)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),10))],Var ((Just (TVar 0),2)),Var ((Just (TVar 1),3))]),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [(Just (TVar 0),11),(Just (TVar 1),12),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),13),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),14),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),15)]) (Let [((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),16),Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [Var ((Just (TVar 0),6)),Var ((Just (TVar 1),7)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),8)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),9)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),10))])] (Let [((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),17),Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [Var ((Just (TVar 0),11)),Var ((Just (TVar 1),12)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),13)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),14)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),15))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","Int") []),18),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FiniteMap","sizeFM'")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),16))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","Int") []),19),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FiniteMap","sizeFM'")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),17))])] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","<")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","*")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Int") []),"FiniteMap","sIZE_RATIO")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),18))],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),19))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))))),"FiniteMap","mkBalBranch")) [Var ((Just (TVar 0),11)),Var ((Just (TVar 1),12)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","mkVBalBranch")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TVar 0),2)),Var ((Just (TVar 1),3)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),16)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),14))],Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),15))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","<")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","*")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Int") []),"FiniteMap","sIZE_RATIO")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),19))],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),18))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))))),"FiniteMap","mkBalBranch")) [Var ((Just (TVar 0),6)),Var ((Just (TVar 1),7)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),9)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","mkVBalBranch")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TVar 0),2)),Var ((Just (TVar 1),3)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),10)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),17))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","otherwise")) []) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","mkBranch")) [Lit (Intc  13),Var ((Just (TVar 0),2)),Var ((Just (TVar 1),3)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),16)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),17))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"Prelude","failed")) [])])])])))))])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","glueBal")) 3 Private (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1])))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3)] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FiniteMap","isEmptyFM'")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FiniteMap","isEmptyFM'")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Let [((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]),4),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1])),"FiniteMap","findMax")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2))])] (Let [((Just (TVar 0),5),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]) (TVar 0)),"FiniteMap","glueBal._#selFP8#mid_key1")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]),4))])] (Let [((Just (TVar 1),6),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]) (TVar 1)),"FiniteMap","glueBal._#selFP9#mid_elt1")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]),4))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]),7),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1])),"FiniteMap","findMin")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3))])] (Let [((Just (TVar 0),8),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]) (TVar 0)),"FiniteMap","glueBal._#selFP6#mid_key2")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]),7))])] (Let [((Just (TVar 1),9),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]) (TVar 1)),"FiniteMap","glueBal._#selFP7#mid_elt2")) [Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]),7))])] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude",">")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FiniteMap","sizeFM'")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3))],Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FiniteMap","sizeFM'")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2))]]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))))),"FiniteMap","mkBalBranch")) [Var ((Just (TVar 0),8)),Var ((Just (TVar 1),9)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))),"FiniteMap","deleteMin")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))))),"FiniteMap","mkBalBranch")) [Var ((Just (TVar 0),5)),Var ((Just (TVar 1),6)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))),"FiniteMap","deleteMax")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2))],Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3))])])))))))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 439,TVar 440]) (TVar 439)),"FiniteMap","glueBal._#selFP8#mid_key1")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 439,TVar 440]) (TVar 439)) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 439,TVar 440]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 439,TVar 440]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 439) (FuncType (TVar 440) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 439,TVar 440]))),"Prelude","(,)")) [(Just (TVar 439),2),(Just (TVar 440),3)]) (Var ((Just (TVar 439),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 439,TVar 440]) (TVar 440)),"FiniteMap","glueBal._#selFP9#mid_elt1")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 439,TVar 440]) (TVar 440)) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 439,TVar 440]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 439,TVar 440]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 439) (FuncType (TVar 440) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 439,TVar 440]))),"Prelude","(,)")) [(Just (TVar 439),2),(Just (TVar 440),3)]) (Var ((Just (TVar 440),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 439,TVar 440]) (TVar 439)),"FiniteMap","glueBal._#selFP6#mid_key2")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 439,TVar 440]) (TVar 439)) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 439,TVar 440]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 439,TVar 440]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 439) (FuncType (TVar 440) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 439,TVar 440]))),"Prelude","(,)")) [(Just (TVar 439),2),(Just (TVar 440),3)]) (Var ((Just (TVar 439),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 439,TVar 440]) (TVar 440)),"FiniteMap","glueBal._#selFP7#mid_elt2")) 1 Private (FuncType (TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 439,TVar 440]) (TVar 440)) (Rule [(Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 439,TVar 440]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 439,TVar 440]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 439) (FuncType (TVar 440) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 439,TVar 440]))),"Prelude","(,)")) [(Just (TVar 439),2),(Just (TVar 440),3)]) (Var ((Just (TVar 440),3)))])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","glueVBal")) 3 Private (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1])))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3)] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FiniteMap","isEmptyFM'")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FiniteMap","isEmptyFM'")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Let [((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2)))] (Let [((Just (TVar 0),5),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TVar 0)),"FiniteMap","glueVBal._#selFP16#key_l")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4))])] (Let [((Just (TVar 1),6),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TVar 1)),"FiniteMap","glueVBal._#selFP17#elt_l")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4))])] (Let [((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])),"FiniteMap","glueVBal._#selFP18#fm_ll")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4))])] (Let [((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),8),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])),"FiniteMap","glueVBal._#selFP19#fm_lr")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),4))])] (Let [((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),9),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3)))] (Let [((Just (TVar 0),10),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TVar 0)),"FiniteMap","glueVBal._#selFP12#key_r")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),9))])] (Let [((Just (TVar 1),11),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TVar 1)),"FiniteMap","glueVBal._#selFP13#elt_r")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),9))])] (Let [((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),12),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])),"FiniteMap","glueVBal._#selFP14#fm_rl")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),9))])] (Let [((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),13),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])),"FiniteMap","glueVBal._#selFP15#fm_rr")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),9))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","Int") []),14),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FiniteMap","sizeFM'")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2))])] (Let [((Just (TCons (Nothing,Nothing,"Prelude","Int") []),15),Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","Int") [])),"FiniteMap","sizeFM'")) [Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3))])] (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","<")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","*")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Int") []),"FiniteMap","sIZE_RATIO")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),14))],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),15))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))))),"FiniteMap","mkBalBranch")) [Var ((Just (TVar 0),10)),Var ((Just (TVar 1),11)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","glueVBal")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),12))],Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),13))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","<")) [Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (TCons (Nothing,Nothing,"Prelude","Int") []))),"Prelude","*")) [Comb FuncCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Int") []),"FiniteMap","sIZE_RATIO")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),15))],Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),14))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))))),"FiniteMap","mkBalBranch")) [Var ((Just (TVar 0),5)),Var ((Just (TVar 1),6)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","glueVBal")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),8)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3))]]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","glueBal")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),3))])])])))))))))))))])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]) (TVar 876)),"FiniteMap","glueVBal._#selFP16#key_l")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 876,TVar 877]) (TVar 876)) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 876) (FuncType (TVar 877) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877])))))),"FiniteMap","Branch")) [(Just (TVar 876),2),(Just (TVar 877),3),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),4),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),5),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),6)]) (Var ((Just (TVar 876),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]) (TVar 877)),"FiniteMap","glueVBal._#selFP17#elt_l")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 876,TVar 877]) (TVar 877)) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 876) (FuncType (TVar 877) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877])))))),"FiniteMap","Branch")) [(Just (TVar 876),2),(Just (TVar 877),3),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),4),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),5),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),6)]) (Var ((Just (TVar 877),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877])),"FiniteMap","glueVBal._#selFP18#fm_ll")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 876,TVar 877]) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 876,TVar 877])) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 876) (FuncType (TVar 877) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877])))))),"FiniteMap","Branch")) [(Just (TVar 876),2),(Just (TVar 877),3),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),4),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),5),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),6)]) (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),5)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877])),"FiniteMap","glueVBal._#selFP19#fm_lr")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 876,TVar 877]) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 876,TVar 877])) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 876) (FuncType (TVar 877) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877])))))),"FiniteMap","Branch")) [(Just (TVar 876),2),(Just (TVar 877),3),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),4),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),5),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),6)]) (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),6)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]) (TVar 876)),"FiniteMap","glueVBal._#selFP12#key_r")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 876,TVar 877]) (TVar 876)) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 876) (FuncType (TVar 877) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877])))))),"FiniteMap","Branch")) [(Just (TVar 876),2),(Just (TVar 877),3),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),4),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),5),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),6)]) (Var ((Just (TVar 876),2)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]) (TVar 877)),"FiniteMap","glueVBal._#selFP13#elt_r")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 876,TVar 877]) (TVar 877)) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 876) (FuncType (TVar 877) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877])))))),"FiniteMap","Branch")) [(Just (TVar 876),2),(Just (TVar 877),3),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),4),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),5),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),6)]) (Var ((Just (TVar 877),3)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877])),"FiniteMap","glueVBal._#selFP14#fm_rl")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 876,TVar 877]) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 876,TVar 877])) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 876) (FuncType (TVar 877) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877])))))),"FiniteMap","Branch")) [(Just (TVar 876),2),(Just (TVar 877),3),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),4),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),5),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),6)]) (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),5)))])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877])),"FiniteMap","glueVBal._#selFP15#fm_rr")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 876,TVar 877]) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 876,TVar 877])) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 876) (FuncType (TVar 877) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877])))))),"FiniteMap","Branch")) [(Just (TVar 876),2),(Just (TVar 877),3),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),4),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),5),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),6)]) (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 876,TVar 877]),6)))])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","splitLT")) 3 Private (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1])))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2),(Just (TVar 0),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [(Just (TVar 0),4),(Just (TVar 1),5),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),6),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),8)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"Prelude","apply")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TVar 0),3))],Var ((Just (TVar 0),4))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","splitLT")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7)),Var ((Just (TVar 0),3))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TVar 0),3)),Var ((Just (TVar 0),4))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","mkVBalBranch")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TVar 0),4)),Var ((Just (TVar 1),5)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","splitLT")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),8)),Var ((Just (TVar 0),3))]])])])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","splitGT")) 3 Private (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1])))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2),(Just (TVar 0),3)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []) (Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [(Just (TVar 0),4),(Just (TVar 1),5),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),6),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),8)]) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") [])) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") [])))),"Prelude","apply")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TVar 0),3))],Var ((Just (TVar 0),4))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","mkVBalBranch")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TVar 0),4)),Var ((Just (TVar 1),5)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","splitGT")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7)),Var ((Just (TVar 0),3))],Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),8))]),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Case  Rigid (Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"Prelude","==")) [Var ((Just (TVar 0),3)),Var ((Just (TVar 0),4))]) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","True")) []) (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),8))),Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","Bool") []),"Prelude","False")) []) (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TVar 0) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))),"FiniteMap","splitGT")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),8)),Var ((Just (TVar 0),3))])])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1])),"FiniteMap","findMin")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TVar 1])) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [(Just (TVar 0),2),(Just (TVar 1),3),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),4),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),5),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),5))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []) (Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]))),"Prelude","(,)")) [Var ((Just (TVar 0),2)),Var ((Just (TVar 1),3))]),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [(Just (TVar 0),7),(Just (TVar 1),8),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),9),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),10),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),11)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1])),"FiniteMap","findMin")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [Var ((Just (TVar 0),7)),Var ((Just (TVar 1),8)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),9)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),10)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),11))]])])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))),"FiniteMap","deleteMin")) 2 Private (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [(Just (TVar 0),3),(Just (TVar 1),4),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),5),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),6),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),6))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []) (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7))),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [(Just (TVar 0),8),(Just (TVar 1),9),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),10),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),11),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),12)]) (Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))))),"FiniteMap","mkBalBranch")) [Var ((Just (TVar 0),3)),Var ((Just (TVar 1),4)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))),"FiniteMap","deleteMin")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [Var ((Just (TVar 0),8)),Var ((Just (TVar 1),9)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),10)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),11)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),12))]],Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7))])])])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1])),"FiniteMap","findMax")) 1 Private (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 0,TVar 1])) (Rule [(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),1)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),1))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [(Just (TVar 0),2),(Just (TVar 1),3),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),4),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),5),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),6)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),6))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []) (Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1]))),"Prelude","(,)")) [Var ((Just (TVar 0),2)),Var ((Just (TVar 1),3))]),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [(Just (TVar 0),7),(Just (TVar 1),8),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),9),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),10),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),11)]) (Comb FuncCall ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TVar 1])),"FiniteMap","findMax")) [Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [Var ((Just (TVar 0),7)),Var ((Just (TVar 1),8)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),9)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),10)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),11))]])])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))),"FiniteMap","deleteMax")) 2 Private (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]) (TCons ((Nothing,Nothing,"FiniteMap","FiniteMap")) [TVar 0,TVar 1]))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2)] (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),2))) [Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [(Just (TVar 0),3),(Just (TVar 1),4),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),5),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),6),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7)]) (Case  Flex (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),7))) [Branch (Pattern ((Nothing,Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),"FiniteMap","EmptyFM")) []) (Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),6))),Branch (Pattern ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [(Just (TVar 0),8),(Just (TVar 1),9),(Just (TCons (Nothing,Nothing,"Prelude","Int") []),10),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),11),(Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),12)]) (Comb FuncCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))))),"FiniteMap","mkBalBranch")) [Var ((Just (TVar 0),3)),Var ((Just (TVar 1),4)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),6)),Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]))),"FiniteMap","deleteMax")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1)),Comb ConsCall ((Nothing,Just (FuncType (TVar 0) (FuncType (TVar 1) (FuncType (TCons (Nothing,Nothing,"Prelude","Int") []) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]) (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1])))))),"FiniteMap","Branch")) [Var ((Just (TVar 0),8)),Var ((Just (TVar 1),9)),Var ((Just (TCons (Nothing,Nothing,"Prelude","Int") []),10)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),11)),Var ((Just (TCons (Nothing,Nothing,"FiniteMap","FiniteMap") [TVar 0,TVar 1]),12))]]])])])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []])),"FiniteMap","emptySet")) 0 Private (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","()")) []])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []])),"FiniteMap","emptyFM")) [])),Func ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]))),"FiniteMap","mkSet")) 2 Private (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (FuncType (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0]) (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","()")) []]))) (Rule [(Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1),(Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),2)] (Comb FuncCall ((Nothing,Just (FuncType (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]))),"Prelude","apply")) [Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]))),"FiniteMap","listToFM")) [Var ((Just (FuncType (TVar 0) (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","Bool") []))),1))],Comb FuncCall ((Nothing,Just (FuncType (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []])) (FuncType (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]) (TCons (Nothing,Nothing,"Prelude","[]") [TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]]))),"Prelude","map")) [Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TVar 0) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []])),"FiniteMap","mkSet._#lambda13")) [],Var ((Just (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0]),2))]])),Func ((Nothing,Just (FuncType (TVar 1421) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1421,TCons (Nothing,Nothing,"Prelude","()") []])),"FiniteMap","mkSet._#lambda13")) 1 Private (FuncType (TVar 1421) (TCons ((Nothing,Nothing,"Prelude","(,)")) [TVar 1421,TCons ((Nothing,Nothing,"Prelude","()")) []])) (Rule [(Just (TVar 1421),1)] (Comb ConsCall ((Nothing,Just (FuncType (TVar 1421) (FuncType (TCons (Nothing,Nothing,"Prelude","()") []) (TCons (Nothing,Nothing,"Prelude","(,)") [TVar 1421,TCons (Nothing,Nothing,"Prelude","()") []]))),"Prelude","(,)")) [Var ((Just (TVar 1421),1)),Comb ConsCall ((Nothing,Just (TCons (Nothing,Nothing,"Prelude","()") []),"Prelude","()")) []])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FiniteMap","isEmptySet")) 0 Private (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","()")) []]) (TCons ((Nothing,Nothing,"Prelude","Bool")) [])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]) (TCons (Nothing,Nothing,"Prelude","Bool") [])),"FiniteMap","isEmptyFM")) [])),Func ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"FiniteMap","elementOf")) 0 Private (FuncType (TVar 0) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","()")) []]) (TCons ((Nothing,Nothing,"Prelude","Bool")) []))) (Rule [] (Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TVar 0) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]) (TCons (Nothing,Nothing,"Prelude","Bool") []))),"FiniteMap","elemFM")) [])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]))),"FiniteMap","minusSet")) 0 Private (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","()")) []]) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","()")) []]) (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","()")) []]))) (Rule [] (Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]))),"FiniteMap","minusFM")) [])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])),"FiniteMap","setToList")) 0 Private (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","()")) []]) (TCons ((Nothing,Nothing,"Prelude","[]")) [TVar 0])) (Rule [] (Comb (FuncPartCall 1) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]) (TCons (Nothing,Nothing,"Prelude","[]") [TVar 0])),"FiniteMap","keysFM")) [])),Func ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]))),"FiniteMap","union")) 0 Private (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","()")) []]) (FuncType (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","()")) []]) (TCons ((Nothing,Nothing,"FiniteMap","FM")) [TVar 0,TCons ((Nothing,Nothing,"Prelude","()")) []]))) (Rule [] (Comb (FuncPartCall 2) ((Nothing,Just (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]) (FuncType (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]) (TCons (Nothing,Nothing,"FiniteMap","FM") [TVar 0,TCons (Nothing,Nothing,"Prelude","()") []]))),"FiniteMap","plusFM")) []))] []