Skip to content

Instantly share code, notes, and snippets.

Keybase proof

I hereby claim:

  • I am jonaprieto on github.
  • I am jonaprieto (https://keybase.io/jonaprieto) on keybase.
  • I have a public key ASDuCgVOy3BZL6z_PKSQ_YBq0K6S3HcTKdKupJb0pX-aKwo

To claim this, I am signing this object:

@jonaprieto
jonaprieto / extractblocks.py
Created June 2, 2020 08:45
Get latex code from agda listings
import re
from pathlib import Path
import os
import sys
tex = [i for i in list(Path("latex/").glob('*.tex'))]
latexTags = []
@jonaprieto
jonaprieto / fractals.py
Last active July 22, 2020 13:17
Use python to generate nice and famous fractals
import sys
import turtle
# -- Settings
sys.setrecursionlimit(100000)
wn = turtle.Screen()
wn.bgcolor('black')
@jonaprieto
jonaprieto / Non-dependent-funext-implies-general-funext.agda
Last active October 30, 2020 09:29
Proving function extensionality from naive non-dependent function extensionality
module Non-dependent-funext-implies-general-funext where
open import BasicFunctions
open import TransportLemmas
open import EquivalenceType
open import QuasiinverseType
open import QuasiinverseLemmas
open import HLevelTypes
open import HLevelLemmas
open import UnivalenceAxiom
open import CoproductIdentities
@jonaprieto
jonaprieto / test.agda
Last active November 18, 2020 13:58
Test
module _ where
open import Relation.Binary.PropositionalEquality
using (_≡_; refl)
open import Data.Nat
using (ℕ; zero; suc)
open import Data.Empty
using (⊥; ⊥-elim)
@jonaprieto
jonaprieto / agda.json
Last active November 26, 2020 14:32
Agda snippets
{
"set type": {
"prefix": "se",
"body": "Set ${1|ℓ,ℓ₁,ℓ₂,ℓᵢ,ℓⱼ,lsuc ?,lzero|}",
"description": "Set type"
},
"Type type": {
"prefix": "ty",
"body": "Type ${1|ℓ,ℓ₁,ℓ₂,ℓᵢ,ℓⱼ,lsuc ?,lzero|}",
"description": "Type type"

\tableofcontents

Intro

Imports

{-# OPTIONS --with-K --exact-split #-}
module content where
@jonaprieto
jonaprieto / Univalence.agda
Last active June 7, 2021 09:38
Removed the postulate about funext
{-# OPTIONS --cubical --rewriting #-}
module cubical.Univalence where
open import Cubical.Core.Everything
using (_∧_; _∨_; ~_; i0;i1 ; transp; Σ; fst; snd
; Glue ; glue ; unglue ; lineToEquiv)
renaming (_≃_ to _≃c_; _,_ to _,c_)
open import Cubical.Foundations.Prelude
@jonaprieto
jonaprieto / cubicaluib.agda
Created June 10, 2021 13:24
Cubical experiment
{-# OPTIONS --cubical --rewriting #-}
module _ where
open import Cubical.Core.Everything
using (_∧_; _∨_; ~_; i0;i1 ; transp; Σ; fst; snd
; Glue ; glue ; unglue ; lineToEquiv;
_≃_; _,_)
open import Cubical.Foundations.Prelude