File: bug_1341.v

package info (click to toggle)
coq 8.20.1%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 44,116 kB
  • sloc: ml: 234,160; sh: 4,301; python: 3,270; ansic: 2,644; makefile: 882; lisp: 172; javascript: 63; xml: 24; sed: 2
file content (19 lines) | stat: -rw-r--r-- 428 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Require Import Setoid.

Section Setoid_Bug.

Variable X:Type -> Type.
Variable Xeq : forall A, (X A) -> (X A) -> Prop.
Hypothesis Xst : forall A, Equivalence (Xeq A).

Variable map : forall A B, (A -> B) -> X A -> X B.

Arguments map [A B].

Goal forall A B (a b:X (B -> A)) (c:X A) (f:A -> B -> A), Xeq _ a b -> Xeq _ b (map f c) -> Xeq _ a (map f c).
intros A B a b c f Hab Hbc.
rewrite Hab.
assumption.
Qed.

End Setoid_Bug.