From 98a11fb7ac807af8e429fe5e1d18f07c4285261c Mon Sep 17 00:00:00 2001
From: Yiyun Liu <yliu8e5f7@protonmail.com>
Date: Wed, 25 Dec 2024 19:59:13 -0500
Subject: [PATCH] Remove funext from Equations

---
 theories/fp_red.v | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/theories/fp_red.v b/theories/fp_red.v
index d32bc40..a29d39c 100644
--- a/theories/fp_red.v
+++ b/theories/fp_red.v
@@ -10,6 +10,8 @@ From Hammer Require Import Tactics.
 Require Import Autosubst2.core Autosubst2.fintype Autosubst2.syntax.
 From Equations Require Import Equations.
 
+Unset Equations With Funext.
+
 Ltac2 spec_refl () :=
   List.iter
     (fun a => match a with
@@ -1039,7 +1041,8 @@ Lemma ren_extract n m (a : Tm n) (ξ : fin n -> fin m) :
 Proof.
   move : m ξ. elim : n/a.
   - sfirstorder.
-  - move => n a ih m ξ. simpl. simp extract.
+  - move => n a ih m ξ. simpl.
+    simp extract.
     rewrite ih.
     by asimpl.
   - hauto q:on rew:db:extract.
@@ -1100,6 +1103,7 @@ Proof.
   - qauto rew:db:prov.
 Qed.
 
+
 Lemma prov_par n (A : Tm n) B a b : prov A B a -> Par.R a b -> prov A B b.
 Proof.
   move => + h. move : A B.