changeset 166 | 3300260b63a1 |
parent 162 | 20f0b148cfe2 |
child 171 | 13aab4c59096 |
164:4f00ca4f5ef4 | 166:3300260b63a1 |
---|---|
496 lemma FORALL_PRS: |
496 lemma FORALL_PRS: |
497 assumes a: "QUOTIENT R absf repf" |
497 assumes a: "QUOTIENT R absf repf" |
498 shows "!f. All f = Ball (Respects R) ((absf ---> id) f)" |
498 shows "!f. All f = Ball (Respects R) ((absf ---> id) f)" |
499 sorry |
499 sorry |
500 |
500 |
501 lemma ho_all_prs: "op = ===> op = ===> op = All All" |
|
502 apply (auto) |
|
503 done |
|
501 |
504 |
502 end |
505 end |
503 |
506 |