commit 64d1756678c158c16345574cb1407672f2e28d17 parent aceb9e71f3582a83bfcfca5df1d763da8486cba3 Author: Georges Dupéron <georges.duperon@gmail.com> Date: Mon, 9 Jan 2017 19:44:21 +0100 Started drafting the ≡ invariant representation as a type Diffstat:
| M | invariants-phantom.hl.rkt | | | 22 | +++++++++++++++++----- |
1 file changed, 17 insertions(+), 5 deletions(-)
diff --git a/invariants-phantom.hl.rkt b/invariants-phantom.hl.rkt @@ -346,10 +346,20 @@ We define some tokens which will be used to identify the operator which relates two nodes in the graph. @chunk[<comparison-operators> - (struct ≡ ()) - (struct ≢ ()) - (struct ∈ ()) - (struct ∉ ())] + (struct (A B) inv≡ ([a : A] [b : B])) + (struct (A B) inv≢ ([a : A] [b : B])) + ;(struct inv∈ ()) ;; Can be expressed in terms of ≡ + ;(struct inv∉ ()) ;; Can be expressed in terms of ≢ + ] + +@chunk[<≡> + (define-type-expander (≡ stx) + (syntax-case stx () + [(_ (patha ...) (pathb ...)) + ;; TODO: probably not just List here, have to think. + #'(inv≡ (List 'patha ...) (List 'pathb ...))]))] + +@; TODO: don't forget to include both directions a = b and b = a (or sort the fields?) @subsection{Putting it all together} @@ -359,8 +369,10 @@ relates two nodes in the graph. <witness-value> <grouping-invariants> <comparison-operators> + <≡> (code:comment "Tests:") (ann witness-value (Invariants)) ;; No invariants - + (ann witness-value (Invariants (≡ (a) (a b c)))) ;; No invariants + (void)]