{"action":"created","issue":{"url":"https://api.github.com/repos/LeventErkok/sbv/issues/172","labels_url":"https://api.github.com/repos/LeventErkok/sbv/issues/172/labels{/name}","comments_url":"https://api.github.com/repos/LeventErkok/sbv/issues/172/comments","events_url":"https://api.github.com/repos/LeventErkok/sbv/issues/172/events","html_url":"https://github.com/LeventErkok/sbv/issues/172","id":78582413,"number":172,"title":"SBV.Dynamic: Add QuickCheck support for predicates","user":{"login":"jpziegler","id":8723160,"avatar_url":"https://avatars.githubusercontent.com/u/8723160?v=3","gravatar_id":"","url":"https://api.github.com/users/jpziegler","html_url":"https://github.com/jpziegler","followers_url":"https://api.github.com/users/jpziegler/followers","following_url":"https://api.github.com/users/jpziegler/following{/other_user}","gists_url":"https://api.github.com/users/jpziegler/gists{/gist_id}","starred_url":"https://api.github.com/users/jpziegler/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/jpziegler/subscriptions","organizations_url":"https://api.github.com/users/jpziegler/orgs","repos_url":"https://api.github.com/users/jpziegler/repos","events_url":"https://api.github.com/users/jpziegler/events{/privacy}","received_events_url":"https://api.github.com/users/jpziegler/received_events","type":"User","site_admin":false},"labels":[],"state":"open","locked":false,"assignee":{"login":"brianhuffman","id":619882,"avatar_url":"https://avatars.githubusercontent.com/u/619882?v=3","gravatar_id":"","url":"https://api.github.com/users/brianhuffman","html_url":"https://github.com/brianhuffman","followers_url":"https://api.github.com/users/brianhuffman/followers","following_url":"https://api.github.com/users/brianhuffman/following{/other_user}","gists_url":"https://api.github.com/users/brianhuffman/gists{/gist_id}","starred_url":"https://api.github.com/users/brianhuffman/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/brianhuffman/subscriptions","organizations_url":"https://api.github.com/users/brianhuffman/orgs","repos_url":"https://api.github.com/users/brianhuffman/repos","events_url":"https://api.github.com/users/brianhuffman/events{/privacy}","received_events_url":"https://api.github.com/users/brianhuffman/received_events","type":"User","site_admin":false},"milestone":null,"comments":7,"created_at":"2015-05-20T15:59:30Z","updated_at":"2015-05-22T19:25:58Z","closed_at":null,"body":"It would be useful to be able to be able to automatically `quickCheck` theorems/predicates (Functions returning `Symbolic SVal` of kind `KBool`) built with SBV.Dynamic."},"comment":{"url":"https://api.github.com/repos/LeventErkok/sbv/issues/comments/104748389","html_url":"https://github.com/LeventErkok/sbv/issues/172#issuecomment-104748389","issue_url":"https://api.github.com/repos/LeventErkok/sbv/issues/172","id":104748389,"user":{"login":"jpziegler","id":8723160,"avatar_url":"https://avatars.githubusercontent.com/u/8723160?v=3","gravatar_id":"","url":"https://api.github.com/users/jpziegler","html_url":"https://github.com/jpziegler","followers_url":"https://api.github.com/users/jpziegler/followers","following_url":"https://api.github.com/users/jpziegler/following{/other_user}","gists_url":"https://api.github.com/users/jpziegler/gists{/gist_id}","starred_url":"https://api.github.com/users/jpziegler/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/jpziegler/subscriptions","organizations_url":"https://api.github.com/users/jpziegler/orgs","repos_url":"https://api.github.com/users/jpziegler/repos","events_url":"https://api.github.com/users/jpziegler/events{/privacy}","received_events_url":"https://api.github.com/users/jpziegler/received_events","type":"User","site_admin":false},"created_at":"2015-05-22T19:25:58Z","updated_at":"2015-05-22T19:25:58Z","body":"Nice! Working from this, I found that \"native\" QuickCheck functionality can be gained by adding the following lines to `Data.SBV.BitVectors.Model`:\r\n```haskell\r\ninstance Testable (Symbolic SVal) where\r\n  property m = property $ fmap (SBV::SVal -> SBool) m\r\n```\r\nSeems like more checks should be put in to ensure that all the types are what they need to be within the `SVal`, but this works."}}