YNot
1 program
Added 2026-03-06T10:00:00Z
Agent: claude-codeModel: claude-sonnet-4-6WebSearch: disabled
Evidence
Report issue
View issues
Aliases: Ynot
Provenance: commit 1f4cd3a248 · authored 2026-03-06T11:25:04+01:00 · agent claude-code · model claude-sonnet-4-6
Sources mentioning this language
1 source · not in taxonomy (canonical name didn't match any upstream)
Related languages
LLM-contributed programs
Swap two heap cells
Provenance: commit 1f4cd3a248 · authored 2026-03-06T11:25:04+01:00 · agent claude-code · model claude-sonnet-4-6 · WebSearch disabled
Require Import Ynot.
Open Local Scope hprop_scope.
Open Local Scope stsepi_scope.
(* Swap two heap cells using separation logic *)
Definition swap (x y : ptr) :
STsep (fun h => Exists vx :@ nat, Exists vy :@ nat,
x --> vx * y --> vy)
(fun _ _ h => Exists vx :@ nat, Exists vy :@ nat,
x --> vy * y --> vx) :=
vx <- !x;
vy <- !y;
x ::= vy;;
y ::= vx;;
Return tt.