diff options
| author | Pierre-Marie Pédrot | 2019-03-31 23:01:41 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-03-31 23:01:41 +0200 |
| commit | cb502e44aac8328ffd6c37429e050a01f72b2c53 (patch) | |
| tree | 9d8f62a6b86af6d1eb233c199ab5cc5416834e6e /test-suite | |
| parent | 44e5afe99d8b40c3ed0d546f56a446427c7c4da4 (diff) | |
| parent | 3fdb62dee9830bb551798ee9c3dd2a3af1493e8d (diff) | |
Merge PR #8829: Error when [foo.(bar)] is used with nonprojection [bar], warn if [bar] nonprimitive projection.
Reviewed-by: ppedrot
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/bugs/closed/HoTT_coq_014.v | 4 | ||||
| -rw-r--r-- | test-suite/output/Projections.v | 1 |
2 files changed, 3 insertions, 2 deletions
diff --git a/test-suite/bugs/closed/HoTT_coq_014.v b/test-suite/bugs/closed/HoTT_coq_014.v index 35f8701b2f..135537f8ab 100644 --- a/test-suite/bugs/closed/HoTT_coq_014.v +++ b/test-suite/bugs/closed/HoTT_coq_014.v @@ -96,7 +96,7 @@ Admitted. Polymorphic Definition is_unique (A : Type) (x : A) := forall x' : A, x' = x. Polymorphic Definition InitialObject obj {C : SpecializedCategory obj} (o : C) := - forall o', { m : C.(Morphism) o o' | is_unique m }. + forall o', { m : Morphism C o o' | is_unique m }. Polymorphic Definition SmallCat := ComputableCategory _ SUnderlyingCategory. @@ -136,7 +136,7 @@ Section GraphObj. Definition UnderlyingGraph_ObjectOf x := match x with - | GraphIndexSource => { sd : objC * objC & C.(Morphism) (fst sd) (snd sd) } + | GraphIndexSource => { sd : objC * objC & Morphism C (fst sd) (snd sd) } | GraphIndexTarget => objC end. diff --git a/test-suite/output/Projections.v b/test-suite/output/Projections.v index 2713e6a188..35f36e87d7 100644 --- a/test-suite/output/Projections.v +++ b/test-suite/output/Projections.v @@ -1,5 +1,6 @@ Set Printing Projections. +Set Primitive Projections. Class HostFunction := host_func : Type. |