This file has been truncated, but you can view the full file.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Nuprl_functional = | |
| λ _top_assumption_ : nat, | |
| (λ (_evar_0_ : (λ n : nat, matrix_functional (Nuprl n)) 0) | |
| (_evar_0_0 : ∀ n : nat, (λ n0 : nat, matrix_functional (Nuprl n0)) (S n)), | |
| match | |
| _top_assumption_ as n | |
| return ((λ n0 : nat, matrix_functional (Nuprl n0)) n) | |
| with | |
| | 0 => _evar_0_ |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| \documentclass{article} | |
| \usepackage{libertine} | |
| \usepackage[usenames,dvipsnames,svgnames,table]{xcolor} | |
| \usepackage{amsmath, amssymb, proof, microtype, hyperref} | |
| \usepackage{mathpartir} % for mathpar, not for proofs | |
| \usepackage{perfectcut} | |
| \newcommand\Parens[1]{\perfectparens{#1}} | |
| \newcommand\Squares[1]{\perfectbrackets{#1}} |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| module experiment where | |
| open import Agda.Primitive | |
| open import Prelude.List | |
| open import Prelude.Size | |
| open import Prelude.Monoidal | |
| open import Prelude.Monad | |
| open import Prelude.Functor | |
| open import Prelude.Natural | |
| open Size using (∞) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| id : type. | |
| id/z : id. | |
| id/s : id -o id. | |
| answer : type. | |
| yes : answer. | |
| no : answer. | |
| id/eq? : id -> id -> answer -> type. | |
| id/eq/z/z : id/eq? id/z id/z yes. |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (my-long-op-name first-argument | |
| (something-else oh-boy | |
| here-we-go-again)) | |
| ;; I would prefer: | |
| (my-long-op-name | |
| first-argument | |
| (something-else | |
| oh-boy |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| signature THEORY = | |
| sig | |
| type sort | |
| type term | |
| structure Var : | |
| sig | |
| include ORDERED | |
| val toString : t -> string | |
| end |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Theorem foo : ⸤⊢ (n:nat) =(zero; succ(n); nat) -> =(zero; succ(n); nat)⸥ { | |
| fun-intro(n.fun-intro(x.x; eq⁼(nat-eq; zero-eq; succ-eq(hyp-eq(n)))); nat-eq) | |
| } ext { | |
| lam(_.lam(x.x)) | |
| }. | |
| Operator is-zero : (0). | |
| ⸤is-zero(n)⸥ ≝ ⸤natrec(n; unit; _._.void)⸥. | |
| Theorem succ-not-zero : ⸤⊢ (n:nat) =(succ(n); zero; nat) -> void⸥ { |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (unless (package-installed-p 'use-package) | |
| (package-refresh-contents) | |
| (package-install 'use-package)) | |
| (require 'use-package) | |
| (defun jms-redprl-startup-hook () | |
| "Get flycheck running when RedPRL starts." | |
| (flycheck-mode) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| signature LCS_SORT = | |
| sig | |
| structure AtomicSort : SORT | |
| type atomic = AtomicSort.t | |
| datatype t = | |
| VAL of atomic | |
| | KONT of atomic * atomic | |
| | CMD of atomic |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ENOENT: no such file or directory, open '.babelrc' | |
| Error: ENOENT: no such file or directory, open '.babelrc' | |
| at Error (native) | |
| at Object.fs.openSync (fs.js:549:18) | |
| at Object.fs.readFileSync (fs.js:397:15) | |
| at babelrc (/Users/jon/src/atom-language-redprl/node_modules/babelrc-rollup/dist/babelrc-rollup.js:14:47) | |
| at Object.<anonymous> (/Users/jon/src/atom-language-redprl/src/grammar-generator/rollup.config.js:22:11) | |
| at Module._compile (module.js:435:26) | |
| at Object.require.extensions..js (/Users/jon/src/atom-language-redprl/node_modules/rollup/bin/runRollup.js:54:8) | |
| at Module.load (module.js:356:32) |