Skip to content

Commit 4950096

Browse files
committed
Fix some errors encountered in coq-dev
1 parent bdb88a3 commit 4950096

File tree

2 files changed

+5
-6
lines changed

2 files changed

+5
-6
lines changed

src/Control/Monad/Indexed.v

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
Require Import Hask.Ltac.
22
Require Import Hask.Prelude.
3+
Require Import FunctionalExtensionality.
34

45
Generalizable All Variables.
56
Set Primitive Projections.
@@ -126,8 +127,6 @@ Ltac rewrite_iapp_homomorphisms :=
126127

127128
Section IApplicatives.
128129

129-
Require Import FunctionalExtensionality.
130-
131130
Variable F : Type -> Type -> Type -> Type.
132131
Context `{IApplicative F}.
133132

src/Haskell.v

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -63,10 +63,10 @@ Extract Inlined Constant projT1 => "Prelude.fst".
6363
Extract Inlined Constant snd => "Prelude.snd".
6464
(* Extract Inlined Constant subn => "(Prelude.-)". *)
6565

66-
Extraction Implicit eq_rect [ x y ].
67-
Extraction Implicit eq_rect_r [ x y ].
68-
Extraction Implicit eq_rec [ x y ].
69-
Extraction Implicit eq_rec_r [ x y ].
66+
(* Extraction Implicit eq_rect [ x y ]. *)
67+
(* Extraction Implicit eq_rect_r [ x y ]. *)
68+
(* Extraction Implicit eq_rec [ x y ]. *)
69+
(* Extraction Implicit eq_rec_r [ x y ]. *)
7070

7171
Extract Inlined Constant eq_rect => "".
7272
Extract Inlined Constant eq_rect_r => "".

0 commit comments

Comments
 (0)