Skip to content

Instantly share code, notes, and snippets.

View RyanGlScott's full-sized avatar

Ryan Scott RyanGlScott

View GitHub Profile
@RyanGlScott
RyanGlScott / cabal.project.local
Last active September 30, 2023 13:58
containers-0.7 cabal.project.local
View cabal.project.local
constraints:
containers == 0.7.*
allow-newer:
aeson:containers,
Cabal-syntax:containers,
cabal-install-parsers:containers,
cassava:containers,
foldable1-classes-compat:containers,
hashable:containers,
@RyanGlScott
RyanGlScott / crux-mir-test.txt
Created March 21, 2023 14:40
crux-mir test suite progress
View crux-mir-test.txt
crux-mir
crux concrete
refs
promoted_imm: OK (0.15s)
Compiling and running oracle program (0.15s)
Oracle output: 0
Crux output: 0
mut_raw: OK (0.15s)
Compiling and running oracle program (0.15s)
@RyanGlScott
RyanGlScott / Blah.sawcore
Created January 23, 2023 16:53
Heapster example of how to specify a memcpy-like function
View Blah.sawcore
module Blah where
@RyanGlScott
RyanGlScott / cabal.project.local
Last active September 30, 2023 23:53
GHC 9.8 cabal.project.local
View cabal.project.local
allow-newer:
aeson:deepseq,
aeson:ghc-prim,
aeson:template-haskell,
aeson:th-abstraction,
assoc:base,
async:base,
attoparsec:ghc-prim,
binary-orphans:base,
boring:base,
View SimplifiedExample.v
From Coq Require Import Program.Basics.
From Coq Require Program.Equality.
From Coq Require Import Vectors.Vector.
From Coq Require Import Logic.Eqdep.
Import VectorNotations.
Require Import Lia.
Require Import ZArith.
Require Import ZifyBool.
View ZifyTermTakeOne.v
From Coq Require Import Program.Basics.
From Coq Require Program.Equality.
From Coq Require Import Vectors.Vector.
From Coq Require Import Logic.Eqdep.
Import VectorNotations.
Require Import Lia.
Require Import ZArith.
Require Import ZifyBool.
@RyanGlScott
RyanGlScott / HDList.hs
Created July 23, 2022 20:10
Heterogeneous difference lists
View HDList.hs
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE GADTs #-}
{-# LANGUAGE StandaloneKindSignatures #-}
{-# LANGUAGE TypeOperators #-}
{-# LANGUAGE UndecidableInstances #-}
module HDList where
import qualified Control.Category as Cat (Category(..))
import Data.Function (on)
@RyanGlScott
RyanGlScott / DList.v
Last active July 24, 2022 12:33
Proofs of the difference list invariant for various operations
View DList.v
Require Import Lists.List.
Import ListNotations.
Open Scope list_scope.
Require Import Logic.FunctionalExtensionality.
Require Import Lists.Streams.
Inductive DList (a : Type) : Type :=
| MkDList : (list a -> list a) -> DList a.
Arguments MkDList {a} f.
@RyanGlScott
RyanGlScott / FromToVec.hs
Created August 28, 2021 15:00
Proofs involving conversion from and to length-indexed vectors
View FromToVec.hs
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE GADTs #-}
{-# LANGUAGE PolyKinds #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE StandaloneKindSignatures #-}
{-# LANGUAGE TypeApplications #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
module FromToVec where
@RyanGlScott
RyanGlScott / Main.hs
Last active May 19, 2021 13:46
Is this use of unsafeCoerce valid?
View Main.hs
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE GADTs #-}
{-# LANGUAGE KindSignatures #-}
{-# LANGUAGE NoStarIsType #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE TypeApplications #-}
{-# LANGUAGE TypeOperators #-}
{-# OPTIONS_GHC -Wall #-}
module Main (main) where