33 lines
6.8 KiB
HTML
33 lines
6.8 KiB
HTML
|
<!DOCTYPE HTML>
|
|||
|
|
<html><head><meta charset="utf-8"><title>Strict</title><link rel="stylesheet" href="Agda.css"></head><body><pre class="Agda"><a id="1" class="Comment">------------------------------------------------------------------------</a>
|
|||
|
|
<a id="74" class="Comment">-- The Agda standard library</a>
|
|||
|
|
<a id="103" class="Comment">--</a>
|
|||
|
|
<a id="106" class="Comment">-- Strictness combinators</a>
|
|||
|
|
<a id="132" class="Comment">------------------------------------------------------------------------</a>
|
|||
|
|
|
|||
|
|
<a id="206" class="Symbol">{-#</a> <a id="210" class="Keyword">OPTIONS</a> <a id="218" class="Pragma">--without-K</a> <a id="230" class="Pragma">--safe</a> <a id="237" class="Symbol">#-}</a>
|
|||
|
|
|
|||
|
|
<a id="242" class="Keyword">module</a> <a id="249" href="Strict.html" class="Module">Strict</a> <a id="256" class="Keyword">where</a>
|
|||
|
|
|
|||
|
|
<a id="263" class="Keyword">open</a> <a id="268" class="Keyword">import</a> <a id="275" href="Level.html" class="Module">Level</a>
|
|||
|
|
<a id="281" class="Keyword">open</a> <a id="286" class="Keyword">import</a> <a id="293" href="Agda.Builtin.Equality.html" class="Module">Agda.Builtin.Equality</a>
|
|||
|
|
|
|||
|
|
<a id="316" class="Keyword">open</a> <a id="321" class="Keyword">import</a> <a id="328" href="Agda.Builtin.Strict.html" class="Module">Agda.Builtin.Strict</a>
|
|||
|
|
<a id="353" class="Keyword">renaming</a> <a id="362" class="Symbol">(</a> <a id="364" href="Agda.Builtin.Strict.html#179" class="Primitive">primForce</a> <a id="374" class="Symbol">to</a> <a id="377" class="Primitive">force</a>
|
|||
|
|
<a id="397" class="Symbol">;</a> <a id="399" href="Agda.Builtin.Strict.html#262" class="Primitive">primForceLemma</a> <a id="414" class="Symbol">to</a> <a id="417" class="Primitive">force-≡</a><a id="424" class="Symbol">)</a> <a id="426" class="Keyword">public</a>
|
|||
|
|
|
|||
|
|
<a id="434" class="Comment">-- Derived combinators</a>
|
|||
|
|
<a id="457" class="Keyword">module</a> <a id="464" href="Strict.html#464" class="Module">_</a> <a id="466" class="Symbol">{</a><a id="467" href="Strict.html#467" class="Bound">ℓ</a> <a id="469" href="Strict.html#469" class="Bound">ℓ′</a> <a id="472" class="Symbol">:</a> <a id="474" href="Agda.Primitive.html#597" class="Postulate">Level</a><a id="479" class="Symbol">}</a> <a id="481" class="Symbol">{</a><a id="482" href="Strict.html#482" class="Bound">A</a> <a id="484" class="Symbol">:</a> <a id="486" href="Agda.Primitive.html#326" class="Primitive">Set</a> <a id="490" href="Strict.html#467" class="Bound">ℓ</a><a id="491" class="Symbol">}</a> <a id="493" class="Symbol">{</a><a id="494" href="Strict.html#494" class="Bound">B</a> <a id="496" class="Symbol">:</a> <a id="498" href="Agda.Primitive.html#326" class="Primitive">Set</a> <a id="502" href="Strict.html#469" class="Bound">ℓ′</a><a id="504" class="Symbol">}</a> <a id="506" class="Keyword">where</a>
|
|||
|
|
|
|||
|
|
<a id="515" href="Strict.html#515" class="Function">force′</a> <a id="522" class="Symbol">:</a> <a id="524" href="Strict.html#482" class="Bound">A</a> <a id="526" class="Symbol">→</a> <a id="528" class="Symbol">(</a><a id="529" href="Strict.html#482" class="Bound">A</a> <a id="531" class="Symbol">→</a> <a id="533" href="Strict.html#494" class="Bound">B</a><a id="534" class="Symbol">)</a> <a id="536" class="Symbol">→</a> <a id="538" href="Strict.html#494" class="Bound">B</a>
|
|||
|
|
<a id="542" href="Strict.html#515" class="Function">force′</a> <a id="549" class="Symbol">=</a> <a id="551" href="Strict.html#377" class="Primitive">force</a>
|
|||
|
|
|
|||
|
|
<a id="560" href="Strict.html#560" class="Function">force′-≡</a> <a id="569" class="Symbol">:</a> <a id="571" class="Symbol">(</a><a id="572" href="Strict.html#572" class="Bound">a</a> <a id="574" class="Symbol">:</a> <a id="576" href="Strict.html#482" class="Bound">A</a><a id="577" class="Symbol">)</a> <a id="579" class="Symbol">(</a><a id="580" href="Strict.html#580" class="Bound">f</a> <a id="582" class="Symbol">:</a> <a id="584" href="Strict.html#482" class="Bound">A</a> <a id="586" class="Symbol">→</a> <a id="588" href="Strict.html#494" class="Bound">B</a><a id="589" class="Symbol">)</a> <a id="591" class="Symbol">→</a> <a id="593" href="Strict.html#515" class="Function">force′</a> <a id="600" href="Strict.html#572" class="Bound">a</a> <a id="602" href="Strict.html#580" class="Bound">f</a> <a id="604" href="Agda.Builtin.Equality.html#151" class="Datatype Operator">≡</a> <a id="606" href="Strict.html#580" class="Bound">f</a> <a id="608" href="Strict.html#572" class="Bound">a</a>
|
|||
|
|
<a id="612" href="Strict.html#560" class="Function">force′-≡</a> <a id="621" class="Symbol">=</a> <a id="623" href="Strict.html#417" class="Primitive">force-≡</a>
|
|||
|
|
|
|||
|
|
<a id="634" href="Strict.html#634" class="Function">seq</a> <a id="638" class="Symbol">:</a> <a id="640" href="Strict.html#482" class="Bound">A</a> <a id="642" class="Symbol">→</a> <a id="644" href="Strict.html#494" class="Bound">B</a> <a id="646" class="Symbol">→</a> <a id="648" href="Strict.html#494" class="Bound">B</a>
|
|||
|
|
<a id="652" href="Strict.html#634" class="Function">seq</a> <a id="656" href="Strict.html#656" class="Bound">a</a> <a id="658" href="Strict.html#658" class="Bound">b</a> <a id="660" class="Symbol">=</a> <a id="662" href="Strict.html#377" class="Primitive">force</a> <a id="668" href="Strict.html#656" class="Bound">a</a> <a id="670" class="Symbol">(λ</a> <a id="673" href="Strict.html#673" class="Bound">_</a> <a id="675" class="Symbol">→</a> <a id="677" href="Strict.html#658" class="Bound">b</a><a id="678" class="Symbol">)</a>
|
|||
|
|
|
|||
|
|
<a id="683" href="Strict.html#683" class="Function">seq-≡</a> <a id="689" class="Symbol">:</a> <a id="691" class="Symbol">(</a><a id="692" href="Strict.html#692" class="Bound">a</a> <a id="694" class="Symbol">:</a> <a id="696" href="Strict.html#482" class="Bound">A</a><a id="697" class="Symbol">)</a> <a id="699" class="Symbol">(</a><a id="700" href="Strict.html#700" class="Bound">b</a> <a id="702" class="Symbol">:</a> <a id="704" href="Strict.html#494" class="Bound">B</a><a id="705" class="Symbol">)</a> <a id="707" class="Symbol">→</a> <a id="709" href="Strict.html#634" class="Function">seq</a> <a id="713" href="Strict.html#692" class="Bound">a</a> <a id="715" href="Strict.html#700" class="Bound">b</a> <a id="717" href="Agda.Builtin.Equality.html#151" class="Datatype Operator">≡</a> <a id="719" href="Strict.html#700" class="Bound">b</a>
|
|||
|
|
<a id="723" href="Strict.html#683" class="Function">seq-≡</a> <a id="729" href="Strict.html#729" class="Bound">a</a> <a id="731" href="Strict.html#731" class="Bound">b</a> <a id="733" class="Symbol">=</a> <a id="735" href="Strict.html#417" class="Primitive">force-≡</a> <a id="743" href="Strict.html#729" class="Bound">a</a> <a id="745" class="Symbol">(λ</a> <a id="748" href="Strict.html#748" class="Bound">_</a> <a id="750" class="Symbol">→</a> <a id="752" href="Strict.html#731" class="Bound">b</a><a id="753" class="Symbol">)</a>
|
|||
|
|
</pre></body></html>
|