aboutsummaryrefslogtreecommitdiff
path: root/test-suite/bugs/closed/3710.v
diff options
context:
space:
mode:
authorVincent Laporte2018-10-02 13:44:46 +0000
committerVincent Laporte2018-10-04 08:01:34 +0000
commitdb22ae6140259dd065fdd80af4cb3c3bab41c184 (patch)
treee17ad7016014a4e2dd4001d826575342c2812fc3 /test-suite/bugs/closed/3710.v
parent53929e9bacf251f60c85d4ff24d46fec2c42ab4b (diff)
rename test files (do not start by a digit)
Diffstat (limited to 'test-suite/bugs/closed/3710.v')
-rw-r--r--test-suite/bugs/closed/3710.v48
1 files changed, 0 insertions, 48 deletions
diff --git a/test-suite/bugs/closed/3710.v b/test-suite/bugs/closed/3710.v
deleted file mode 100644
index b9e2798d88..0000000000
--- a/test-suite/bugs/closed/3710.v
+++ /dev/null
@@ -1,48 +0,0 @@
-(* File reduced by coq-bug-finder from original input, then from 13477 lines to 1457 lines, then from 1553 lines to 1586 lines, then \
-from 1574 lines to 823 lines, then from 837 lines to 802 lines, then from 793 lines to 657 lines, then from 661 lines to 233 lines, t\
-hen from 142 lines to 65 lines *)
-(* coqc version trunk (October 2014) compiled on Oct 8 2014 13:38:17 with OCaml 4.01.0
- coqtop version cagnode16:/afs/csail.mit.edu/u/j/jgross/coq-trunk,trunk (335cf2860bfd9e714d14228d75a52fd2c88db386) *)
-Set Universe Polymorphism.
-Set Primitive Projections.
-Set Implicit Arguments.
-Record sigT {A} (P : A -> Type) := existT { projT1 : A ; projT2 : P projT1 }.
-Notation "{ x : A & P }" := (sigT (fun x:A => P)) : type_scope.
-Definition relation (A : Type) := A -> A -> Type.
-Class Reflexive {A} (R : relation A) := reflexivity : forall x : A, R x x.
-Notation "( x ; y )" := (existT _ x y).
-Notation "x .1" := (projT1 x) (at level 3, format "x '.1'").
-Reserved Infix "o" (at level 40, left associativity).
-Delimit Scope category_scope with category.
-Record PreCategory :=
- { object :> Type;
- morphism : object -> object -> Type;
- compose : forall s d d', morphism d d' -> morphism s d -> morphism s d' }.
-Delimit Scope functor_scope with functor.
-Record Functor (C D : PreCategory) := { object_of :> C -> D }.
-Local Open Scope category_scope.
-Class Isomorphic {C : PreCategory} (s d : C) := {}.
-Axiom composeF : forall C D E (G : Functor D E) (F : Functor C D), Functor C E.
-Infix "o" := composeF : functor_scope.
-Local Open Scope functor_scope.
-Definition sub_pre_cat {P : PreCategory -> Type} : PreCategory.
- exact (@Build_PreCategory
- { C : PreCategory & P C }
- (fun C D => Functor C.1 D.1)
- (fun _ _ _ F G => F o G)).
-Defined.
-Record NaturalTransformation C D (F G : Functor C D) := { components_of :> forall c, morphism D (F c) (G c) }.
-Axiom composeT : forall C D (F F' F'' : Functor C D) (T' : NaturalTransformation F' F'') (T : NaturalTransformation F F'),
- NaturalTransformation F F''.
-Definition functor_category (C D : PreCategory) : PreCategory.
- exact (@Build_PreCategory (Functor C D)
- (@NaturalTransformation C D)
- (@composeT C D)).
-Defined.
-Local Notation "C -> D" := (functor_category C D) : category_scope.
-Definition NaturalIsomorphism (C D : PreCategory) F G : Type := @Isomorphic (C -> D) F G.
-Context `{P : PreCategory -> Type}.
-Local Notation cat := (@sub_pre_cat P).
-Goal forall (s d d' : cat) (m1 : morphism cat d d') (m2 : morphism cat s d),
- NaturalIsomorphism (m1 o m2) (m1 o m2)%functor.
-Fail exact (fun _ _ _ _ _ => reflexivity _).