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))
(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