suzanne.soy/phc-graph
1
0
Fork 0
Code Issues 24 Pull Requests Actions Packages Projects Releases Wiki Activity

Added an extra test.

Browse Source
This commit is contained in:
Georges Dupéron 2017-04-06 16:10:19 +02:00
parent 36ae2e8080
commit 540e8a24b7
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
test/invariant-phantom/simple.rkt
View File

@ -51,6 +51,25 @@
(U (List (Pairof 'd AnyType) (Pairof 'e AnyType)) (U (List (Pairof 'd AnyType) (Pairof 'e AnyType))
(Pairof (Pairof 'b AnyType) (Pairof (Pairof 'c AnyType) R)))))))) (Pairof (Pairof 'b AnyType) (Pairof (Pairof 'c AnyType) R))))))))
(check-same-type
(Π (dot :a) ((λdot b c) ((λdot w)) * (λdot x y))* (λdot d e))
(Rec
R
(U (Pairof Any R)
(Pairof
(Pairof AnyField a)
(U (List (Pairof 'd AnyType) (Pairof 'e AnyType))
(Pairof
(Pairof 'b AnyType)
(Pairof
(Pairof 'c AnyType)
(Rec
R
(U (Pairof (Pairof 'w AnyType) R)
(Pairof
(Pairof 'x AnyType)
(Pairof (Pairof 'y AnyType) R)))))))))))
#| #|
(check-ann witness-value (Invariants)) ;; No invariants (check-ann witness-value (Invariants)) ;; No invariants