Socrates

SPARK |

440 B

None

0 👍

0 👎

Raw Download Clone Embed Print View

procedure Main with SPARK_Mode is
 
   type Domain is new Integer with Ghost;
 
   Socrates : constant Domain := 0 with Ghost;
 
   function Human (X : Domain) return Boolean
     with Ghost, Import;
 
   function Mortal (X : Domain) return Boolean
     with Ghost, Import;
 
begin
   pragma Assume (Human (Socrates));
   pragma Assume (for all X in Domain => (if Human (X) then Mortal (X)));
 
   pragma Assert (Mortal (Socrates));
end Main;

Comments

01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎

text |

0 B

0 👍

0 👎

Raw Download Clone Embed Print View

Best t33n active cpx link daily updates!
 Copy and paste the link in a new browser tab and then hit enter!
 https://crazyporn.@xxx/members/157354/?asgtbndr=1&play=true&spon=adworld&zone=400
 Remove the @

text |

0 B

0 👍

0 👎

Raw Download Clone Embed Print View

Best t33n active cpx link daily updates!
 Copy and paste the link in a new browser tab and then hit enter!
 https://crazyporn.xxx/members/157354/?asgtbndr=1&play=true&spon=adworld&zone=400

01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎

Pasted

Socrates

Comments