Commit bcb1b03d authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Printing boxes and breaking points for WP.

parent c8956dab
...@@ -40,17 +40,17 @@ Instance: Params (@wp) 5. ...@@ -40,17 +40,17 @@ Instance: Params (@wp) 5.
Notation "'WP' e @ E {{ Φ } }" := (wp E e%E Φ) Notation "'WP' e @ E {{ Φ } }" := (wp E e%E Φ)
(at level 20, e, Φ at level 200, (at level 20, e, Φ at level 200,
format "'WP' e @ E {{ Φ } }") : uPred_scope. format "'[' 'WP' e '/' @ E {{ Φ } } ']'") : uPred_scope.
Notation "'WP' e {{ Φ } }" := (wp e%E Φ) Notation "'WP' e {{ Φ } }" := (wp e%E Φ)
(at level 20, e, Φ at level 200, (at level 20, e, Φ at level 200,
format "'WP' e {{ Φ } }") : uPred_scope. format "'[' 'WP' e '/' {{ Φ } } ']'") : uPred_scope.
Notation "'WP' e @ E {{ v , Q } }" := (wp E e%E (λ v, Q)) Notation "'WP' e @ E {{ v , Q } }" := (wp E e%E (λ v, Q))
(at level 20, e, Q at level 200, (at level 20, e, Q at level 200,
format "'WP' e @ E {{ v , Q } }") : uPred_scope. format "'[' 'WP' e '/' @ E {{ v , Q } } ']'") : uPred_scope.
Notation "'WP' e {{ v , Q } }" := (wp e%E (λ v, Q)) Notation "'WP' e {{ v , Q } }" := (wp e%E (λ v, Q))
(at level 20, e, Q at level 200, (at level 20, e, Q at level 200,
format "'WP' e {{ v , Q } }") : uPred_scope. format "'[' 'WP' e '/' {{ v , Q } } ']'") : uPred_scope.
(* Texan triples *) (* Texan triples *)
Notation "'{{{' P } } } e @ E {{{ x .. y , 'RET' pat ; Q } } }" := Notation "'{{{' P } } } e @ E {{{ x .. y , 'RET' pat ; Q } } }" :=
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment