Skip to content

Commit c3b932f

Browse files
hyperpolymathclaude
andcommitted
refactor(agda): use stdlib Extensionality type for funext postulate
Replace the hand-rolled funext type with Extensionality lzero lzero from Axiom.Extensionality.Propositional (already imported). The inline type was redundant — the import existed but was unused. Now both mirror the Coq fix (stdlib import replaces bare Axiom) applied to filesystem_model.v this session. Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
1 parent 794c568 commit c3b932f

1 file changed

Lines changed: 6 additions & 7 deletions

File tree

proofs/agda/FilesystemModel.agda

Lines changed: 6 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -18,6 +18,7 @@ open import Relation.Nullary using (¬_; Dec; yes; no)
1818
open import Relation.Binary.PropositionalEquality using (_≡_; refl; sym; trans; cong; subst)
1919
open import Function using (_∘_)
2020
open import Axiom.Extensionality.Propositional using (Extensionality)
21+
open import Level using (lzero)
2122

2223
-- Path Model
2324
PathComponent : Set
@@ -153,14 +154,12 @@ rmdir-removes-path p fs pre (node , eq) with p path-≟ p
153154
where
154155
open import Data.Empty using (⊥-elim)
155156

156-
-- AXIOM: Functional extensionality (standard in intensional type theory).
157-
-- This is a well-known axiom that is consistent with Agda's type theory.
158-
-- It is provable in cubical Agda (--cubical flag) and available in the
159-
-- stdlib as Axiom.Extensionality.Propositional. We postulate it here to
160-
-- avoid a cubical dependency. See also: HoTT Book, Axiom 2.9.3.
157+
-- AXIOM: Functional extensionality at level 0.
158+
-- Uses stdlib's canonical Extensionality type (Axiom.Extensionality.Propositional).
159+
-- Consistent with standard Agda type theory; provable under --cubical.
160+
-- See also: HoTT Book, Axiom 2.9.3.
161161
postulate
162-
funext : {A : Set} {B : A Set} {f g : (x : A) B x}
163-
( x f x ≡ g x) f ≡ g
162+
funext : Extensionality lzero lzero
164163

165164
-- Helper: from ¬ pathExists, derive fs p ≡ nothing
166165
not-path-exists-nothing : {p : Path} {fs : Filesystem}

0 commit comments

Comments
 (0)