diff options
Diffstat (limited to 'scratch.thy')
| -rw-r--r-- | scratch.thy | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/scratch.thy b/scratch.thy index e06fb7e..3141120 100644 --- a/scratch.thy +++ b/scratch.thy @@ -3,6 +3,12 @@ theory scratch begin + +lemma "U(O): U(O)" +proof (rule inhabited_implies_type) + show "\<nat>: U(O)" .. +qed + lemma assumes "\<Sum>x:A. B(x): U(i)" "(a,b): \<Sum>x:A. B(x)" shows "a : A" |